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ZTITLE My Logging data base operations module’ 
MODULE NMLSLOGOPS 
LANGUAGE (BL1SS32), 
ADDRESSING_MODE (EXTERNAL=LONG_RELATIVE), 
ESSING ree $ (NONEXTERNAL=LONG_RELATIVE), 
T = 'v04-000' 
= 
BEGIN 
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++ 
FACILITY: DECnet-VAX V2.0 Network Management Listener 


ABSTRACT: 
These routines handle all logging data base operations. 
ENVIRONMENT: VAX/VMS Operating System 
AUTHOR: Distributed Systems Software Engineering 
CREATION DATE: 26-JUN-1980 
MODIFIED BY: 
v03-002 MKP0002 Kathy Perko 23-Nov-1982 
Add module as a source for events. 


v02-001 MKP0001 Kathy Perko 16-Nov-1981 
Add circuit entity as a logging source type. 
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1 ZSBTTL ‘Declarations' 


ww 
~ 
L=J 
oO 
wr 


; 0 1 : 
; 9 09 8 1! ; 
: 60 059 1 ! TABLE OF CONTENTS: ; 
; 61 9960 1 i ; 
; 6 061 1 ; 
; 6 006¢ 1 FORWARD ROUTINE : 
> 64 063 1 NMLSADDFILTERS, ; 
> 65 0064 1 NML_MODFIL, : 
: 66 0065 1 NML“MODCLS, ; 
> 67 066 1 NML~MOD ; 
: 68 06 1 NMLSGETSPCFILTERS, : 
; 69 65 1 LSGETCOMFILTERS, ; 
. 0069 1 NMLSGETGBLFILTERS. ; 
; 0071 1 NMLSCLEANSRC : NOVALUE, ; 
. F 007¢ 1 NMLSMATCHSRC ; 
> 7% 0073 1 NMLS$GETNXTSNK, ; 
. «2. 0074 1 NML$GETNXTSRC, ; 
: 76 0075 1 NM! SMATCHEVT : 
aR 0076 1 NMLS$GETNXTEVT, : 
: 78 0077 1 NMLSBLDSRC : NOVALUE, : 
> 79 0078 1 L$BLD : NOVALUE, F 
: 80 0079 1 NMLSADDSRC, ; 
: 81 0080 1 NMLSREPSRC, ; 
; B82 0081 1 NMLSREMSRC : NOVALUE, ; 
: 83 0082 1 NMLSADDEVT, ; 
; 0083 1 NMLSMODEV : NOVALUE, ; 
; 85 0084 1 NMLSREMEVT : NOVALUE; ; 
: 86 0085 1 ; 
: 87 008 1! ; 
+ 0087 1 ! INCLUDE FILES: ; 
> 89 0088 1! ; 
; 0089 1 F 
: (91 0090 1 LIBRARY 'LIBS:NMLLIB.L32'; ; 
> 92 0091 1 LIBRARY 'SHRLIB$:NMALIBRY.L32'; : 
> 93 0092 1 LIBRARY ‘SYSS$LIBRARY:STARLET.L32'; : 
; 94 0093 1 g 
: 95 0094 1! : 
: 9% 0095 1 ! OWN STORAGE: ; 
: 97 0096 1! : 
; 98 0097 1 é 
: 99 0098 1 : 
: 100 099 #1 NML$T_EVTBUFFER : BBLOCK FEVTS$K LENGTH] ; 
; 101 100 . pNALSTISRCBUFFER BBLOCK CNMLSK-RECBFLENJ; : 
; 198 108 1 NML$Q_EVTBFDSC = UPLIT (EVT$K_LENGTH, NMLS$T_EVIBUFFER) : DESCRIPTOR : 
: 106 103 NML$Q"SRCBFDSC = UPLIT (NMLSK-RECBFLEN, NMLST_SRCBUFFER) : DESCRIPTOR; : 
: 106 105 1! : 
: 10 1 1 ' EXTERNAL REFERENCES: : 
: 108 1 1 i : 
: 109 108 1 : 
: 110 109 1 SNML_EXTDEF; : 
+ 111 110 1 : 
; 118 111 EXTERNAL LITERAL ; 
Oe 12 1 NMLSGK_EVENTS; ; 


od Re tacene Sorts bomber IR8SR21984 Q9ESB:EE  HAACTEMBNALCBRoME 83244 


Ss NM 
vorsb8e” > (ects 
; 114 113° «1 
115 1144 «1 vehi 
118 1 i NMLSAB_EVENTS : BBLOCKVECTOR CO, ETBSK_ENTRYLEN); 
118 17 1 a ROUTINE 
11 13 1 NMLSERROR_2; 
120 119 «1 
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ZSBTITL "NMLSADDFILTERS Add event filters for sink node’ 


1 GLOBAL ROUTINE NMLSADDFILTERS 
(FCT, BUFDSC, SNK, SRC, ENTDSC, CLASS, MSKLEN, MSKPTR, RESDSC) = 


tt a 
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FUNCTIONAL DESCRIPTION: 


AX-11 Bliss-32 V4.0-7 
NML.SRCINMLLOGOPS .B832 


This routine adds event filters to the data base entry for a sink 
n 


ode. 
FORMAL PARAMETERS: 


i 
i 
i 
! 
! FCT Function code. (OQ=CLEAR/PURGE, 1=SET/DEF 
} BUF DSC nt +a of buffer to contain modified 
' entry. 
: SNK Logging sink type code. 
: SRC Event source type code. 
} ENTDSC Event source id string descriptor. 
' CLASS Event class code. 
; MSKLEN Length of filter mask. 
! MSKPTR Address of filter mask. 
RESDSC Descriptor of data in buffer. 
IMPLICIT INPUTS: 
NML$GB_EVTMSKTYP 
IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
COMPLETION CODES: 
i TRUE is returned if operation is successful. Otherwise, FALSE 
is returned. 
SIDE EFFECTS: 
NONE 
i ~— 
BEGIN 
MAP 
BUFDSC : REF DESCRIPTOR, 
ENTDSC : REF DESCRIPTOR, 
RESDSC : REF DESCRIPTOR; 
CAL 
SRCPTR : REF BBLOCK, ' Pointer to source block 
STATUS; ' Routine status code 
STATUS = TRUE; ' Initialize return status 


i Get the source block. 
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; 179 177 

; i 9 118 IF _NMLSMATCHSRC (.RESDSC, .SNK, .SRC, .ENTDSC, SRCPTR) 
; : 0 BEGIN 

> 184 1 ; CHSMOVE (.SRCPTR CSRCS$W_LENGTH], 

> 185 1 -SRCPTR 

; 186 184 NMLS$T_SRCBUFFER); 

: 18 185 NMLSREMSRC (.RESDSC, .SRCPTR);: 

> 188 1 6 SRCPTR = NML$T_SRCBUFFER; 

>; «64189 1 

; 190 188 END 

: 191 189 ELSE 

3 19¢ 190 BEGIN 

:; #19 0191 

: 194 019¢ NMLSBLDSRC (NML$Q SRCBEDSC .SNK, .SRC, .ENTDSC); 
> 195 19 SRCPTR = .NML$Q_SRCBFDSC COSCSA_POINTER); 

: 4196 194 

: 197 0195 END; 

: 198 0196 2! 

; 133 ap 44 Add the events to the source block. 

; $04 0199 2  SELECTONEU .NMLSGB_EVTMSKTYP OF 

3 20¢ 0200 SET 

: 20 9201 

; soe 0208 (2): ' ALL events in class 
; 206 020% NML_MODCLS (.FCT, NML$SQ_SRCBFDSC, .SRCPTR, .CLASS, .SRC); 
: $08 gsoe (3): ' Known events 

3 $08 0207 

; 10 0208 NML_MODKNO (.FCT, NML$Q_SRCBFDSC, .SRCPTR, .SRC); 
: ap att 3 COTHERWISE): ' Add specified events to class 
: 214 Oet¢ NML_MODFIL (.FCT 

; 315 021 FALSE, 

: 216 0214 NML$Q’SRCBFDSC, 

; 917 0215 .SRCPTR, 

: 218 0 16 f 2 

: 219 021 “MSKLEN 

: 0 0 18 "MSKPTRS; 

: 1 19 

: § $9 , TES; 

: 4 ‘ Add the source block to the data base entry. 

: g 4 "IF NOT NMLSADDSRC (.BUFDSC, .RESDSC, .SRCPTR) 

F 8 é STATUS = FALSE; 

; : 3 : Clean up the sink node filters. 

; 3 0 NMLSCLEANEVT (.SNK, .RESDSC); __ 

i 333 1 NMLSCLEANSRC (.BUFDSC, .SNK, .RESDSC); 

: 3 0 § RETURN .STATUS 
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$338 f END; ! End of NMLSADDFILTERS 


TITLE NMLSLOGOPS NML Logging data base operations mod 
IDENT \v04-000\ 
«PSECT at. iponpany NOEXE,2 


00014 00000 P.AAA: .LONG 
8 4 ’ ir -ADDRESS “Ast. EVTBUF FER 

& 8 P.AAB: .LONG 
00000 00c - ADDRESS NALST SRCBUFFER 


-PSECT SOWNS,NOEXE,2 
00000 NML$T ae a 


-BLK 
00014 NML$T _SRCBUFFER: 
-BLKB = 1024 


= P.AAA 
= - AAB 
NML$GB ~EVTSRCTYP 


NML$Q_EVTBFDS 
NML$Q_SRCBFDS 
«EXTRN 


-EXTRN NMLSGW 


~EXTRN a oS “LOGAASK, fee. ENTSTRDSC 


NMLSAB_MSGBLOCK 


EXT # 
~EXTRN NMLSAB_QUALIFTER_ID 
EXTRN NMLSAB_ENTITYDATA 
XTRN NM SAB NML_NMV, NMLSAB_PRMSEM 
TRN NMLSAB_RECBUF “WALEAL Me ENT INE TAB 


NMLS$GB_CMD_VER 


om 
m 
=< 
—-_ 
z 
2 
a 
— 

ee inal 

a’ 

f 


NML$GB_FUN 
~EXTRN NALSGB= INFO, NMLS$GB_OPTIONS 
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NMLSAD RS Add event filters for sink node NML.SRCINMLLOGOPS .B32; (3) 
eEXTRN NMLSGL_PRMCODE, NMLSGL_PRS_FLGS : 
“EXTRN NMLSGL-NML ENTITY : 
-EXTRN NML$GO_NETRAMDSC ; 
-EXTRN NBL $GQ"RECBEDSC ; 
XTRN NMLSGW_PRMDESCNT : 
-EXTRN NMLSGK-EVENTS, NMLS$AB_EVENTS : 
XTRN NMLSERROR_2 : 
.PSECT SCODES,NOWRT,2 ; 
O3FC 00000 e ENTRY WALSADDF ILTERS, Save R2,R3,R4,R5,R6,R7,R8,- ; 0121 : 
59 00000000" EF 9E 6000 MOVAB NMLST_SRCBUFFER, RO : : 
58 00000000' ¥ 9E 0000 MOV NML$Q SRCBFDSC, R8 $ : 
3 » ¢ bp048 SUBL #4, S$ : : 
5 01 00 0001 OVL #1, STATUS : 0174 ‘ 
5E 0D B00i8 PUSHL ; 0178 : 
7E 10 AC D 0001 ova SRC, -(SP) 3 ° 
oc AC DD O0001C PUSHL 3 ° 
56 24 AC DO OOO1F OVL RESDSC, R6 3 
56 DD 00023 PUSHL $ 
00000000V_ EF 05 FB 00025 CALLS #5, NMLSMATCHSRC : 
16 50 4 002C BLBC R 3 
69 00 «BE 00 «BE 8 0002F mMOoVC3 aSRCPTR, @SRCPTR, NMLS$T_SRCBUFFER : 0182 
6E 0D B38 5 PUSHL SRCPTR ; 0185 
56 DD 00037 PUSHL Rg : 
00000000V_ EF O¢ FB 00039 CALLS #2, NMLSREMSRC 3 
6E 69 9E 4498 MOVAB NMLST_SRCBUFFER, SRCPTR : 0186 
14 11 0004 BRB $ ; 0178 
7E 10 AC 7D 00045 1$: MOVa SRC, -(SP) 3 0192 
0c AC DD 00049 PUSFL SNK é 
58 DD 0004C PUSHL R8 3 
00000000vV_ EF 04 FB BOOsE CALLS #4, NMLSBLDSRC ; 
oF 04 A8 D0 0005 MOVL NML$Q_SRCBFDSC+4, SRCPTR 3 0193 
50 000000006 ff 9A 00059 28: MOVZBL NMLSGB_EVTMSKTYP, RO : 0199 
02 0 91 Bee CMPB RO, #2 : 0202 
17 12 0006 BNEQ 3$ 3 
10 AC OD 00065 PUSHL SRC : 0204 
18 AC DD 00068 PUSHL CLASS 3 
08 ag DD 00068 PUSHL SRCPTR $ 
58 DD B88 PUSHL RB 3 
04 ag dD 00 PUSHL Ay é 
00000000vV_ EF FS 7 CALLS #5, NML_MODCLS 3 
1 #1 7A BRB 5$ 3 
03 0 91 7C 3$: CMPB RO, #3 3: 0206 
14 12 oe BNEQ 4$ 3 
10 AC OOD 1 PUSHL SRC 3; 0208 
04 ag DD 8 PUSHL SRCPTR : 
58 DD 7 PUSHL R8 $ 
04 AC DD 00089 PUSHL FCT 3 
00000000V_ EF % fe ; Hs #4, NML_MODKNO : 
7E \f AC 7D 95 4$: MOVa MSKLEN, -(SP) : 0217 
1 AC ODD 99 PUSHL CLASS : 021 
oc ag 00 9C PUSHL SRCPTR 3; 021 
3 DD 444 PUSHL R ; 021 
E D4 Al CLRL -(SP) 3 
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04 AC DD 000A3 PUSHL FCT : 
00000000V_ EF 07 FB QO0OA6 CALLS # ton _MODF IL 3 
E DD OOOAD 5$: PUSHL SR CPTR 3 0224 
6 DD OOOAF PUSHL R6 3 
08 AC OD B1 PUSHL ayes é 
00000000V FE fe B4 CALLS #5, SAL SADDSRC E 
2 E 6B BLBS 3 
D4 0 B CLRL = STATUS : 0226 
6 OD CO 6$: PUSHL R6 3; 0230 
0c A DD 000C PUSHL SNK : 
Q0000000V EF g FB OO0C CALLS #2, NMLSCLEANEVT 3 
bp Ree PUSHL ; 0231 
7E 08 A D C MOVQ ay ort (SP) é 
00000000V gf 9 Fe 00D CALLS Nac SCLEANSRC é 
0 DO 000D OVL STAT F 0233 
04 000D¢ ET 3; 0235 


; Routine Size: 221 bytes, Routine Base: $CODE$ + 0000 
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1 
‘ ! ROUTINE NML[MODFIL (FCT, ZER, BUFDSC, SRCPTR, CLASS, MSKLEN, MSKPTR) = 
1 !e¢ 

s ! FUNCTIONAL DESCRIPTION: 

ri} 1/ This routine adds event filters to the data base entry for a sink 
O5cz yi “Aig 
0 45 FORMAL PARAMETERS: 
8 23 1 i FCT Function code. (O=CLEAR/PURGE, 1=SET/DEFINE). 

re | 7% ZER Zero mask flag. (TRUE=yes, FALSE=no). 
8 3 : BUFDSC poose teter of buffer to contain modified data base 

! entry. 

0251 1! SRCPTR Pointer to source block in buffer. 
26 1! CLASS Event class code. 

a MSKLEN Length of filter mask. 
8 22 : : MSKPTR Address of filter mask. 
0256 1! IMPLICIT INPUTS: 
0257 1! 
0258 1! NONE 
OS25 1! 
0260 1 ! IMPLICIT OUTPUTS: 
ps6) 1! 
0 o¢ 1! NONE 
0263 1! 
0264 1 ! ROUTINE VALUE: 
ogee } COMPLETION CODES: 
0267 1: TRUE is returned if operation is successful. Otherwise, FALSE 
0268 1! is returned. 
444 1! 
0270 1 ! SIDE EFFECTS: 
0271 1! 
bsi¢ 1! NONE 
0273 1! 
0274 1 !-- 
0275 1 
0276 BEGIN 
0277 
0278 MAP 
544 BUFDSC : REF DESCRIPTOR, 

80 SRCPTR : REF BBLOCK; 
0281 
OSe6 CAL 
ose; EVTPTR, ' Pointer to event block 

§ : STATUS; ! Routine status code 

Bg STATUS = TRUE; ! Initialize return status 

: Get the event block. 

$' IF NMLSMATCHEVT e.gneere. | 
0292 EVTPTRS | 

j 
| 
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3 3 THEN 
; $f 3% BEGIN 
8 $3 $6 NMLSMODEVT (.FCT, .ZER, .EVTPTR, .MSKLEN, .MSKPTR); 
; 301 9 END 
: 4 9 ELSE 
; B7 8 Bo BEGIN 
; 05 0 S¢ NMLSBLDEVT (.FCT, .CLASS, .MSKLEN, .MSKPTR, NMLST_EVTBUFFER); 
H 3 0 B EVTPTR = NMLST_EVTBUFFER; 
: BS ' b2 } Add the event block to the source block. 
: 10 0307 IF NOT NMLSADDEVT (.BUFDSC, .SRCPTR, .EVTPTR) 
we 0308 TH 
3 \¢ 0309 STATUS = FALSE; 
Be 0310 
3 14 0311 END; 
: 315 B36 
: 16 031 § RETURN .STATUS 
3 17 0314 
; 318 0315 1 END; ! End of NML_MODFIL 
000C 00000 NML_MODFIL: 
WORD Save R2,R3 
53 00000000" EF 4 00002 MOVAB NMLST_EVTBUFFER, R3 
5E 04 C2 00009 SUBL2 #4, S$ 
52 01 00 0000C OVL #1, STATUS 
5E DD OOO0DF PUSHL 
7€ 10 as 7D 00011 MOova SRCPTR, (SP) 
00000000V_ EF 03 FB 00015 CALLS #3, NMLSMATCHEVT 
14 50 i 0001C BLBC RO, 
7E 18 AC D OOOTF ove MSKLEN, =(SP) 
08 AE bp 00023 PUSHL EVTPTR 
7E 04 AC 9) it 6 MOVQ gt. (SP) 
00000000V_ EF 05 4 002A CALLS #5, NMLSMODEVT 
¢§ 11 00031 BRB 2 
bp 0 1$: PUSHL R 
7E 18 AC ) MOVQ MSKLEN, -(SP) 
14 AC OD PUSHL CLASS 
04 ac OD 38 C PUSHL 
00000000V EF 05 FB O0O05F CALLS #5, NMLSBLDEVT 
6E 63 9E bes OVAB NMLST_EVTBUFFER, EVTPTR 
6E pp 4, PUSHL EVTPTR 
7E 0c Ag D 4B mova BUFDSC, =(SP) 
00000000V Fe 9 fe GF CALLS #3, NMLSADDEVT 
2 E § BLBS RO, 2$ 
: 2 D4 CLRL —« STATUS 
‘ 50 b? B 2$: MOVL STATUS, RO 
4 E RET 


3; Routine Size: 95 bytes, Routine Base: S$CODE$ + 00DD 
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LS Modify class filters ML.SRCJNMLLOGOPS .832; (5 


XSBITL "NML_MODCLS Modif 


R. f class filters’ 
ROUTINE NML_MODCLS (FCT, BUFDSC, SRCPTR, CLASS, SRC) = 


OooCoO 


+e 
FUNCTIONAL DESCRIPTION: 


ad routine adds event filters to the data base entry for a sink 
node. 


WIA ANI NIIP PIPIPIPIPINPIPININ 2 SS SO 


NM 
NAL _ 
0 
4 0 : 
st 
7 5 i 
8 4 ' 
2 5 FORMAL PARAMETERS: 
1 : ! FCT Function code. (OQ=CLEAR/PURGE, 1=SET/DEF INE) 
¢ 3 BUF DSC tt omitted of buffer to contain modified data base 
! entry. 
4 0 ‘ SRCPTR Pointer to source block in buffer. 
5 1 { CLASS Event class code. 
38 ; ; Source type code. 
38 334 ! IMPLICIT INPUTS: 
39 335 ! 
40 339 ! NONE 
41 337 ! 
*§ $35 ' IMPLICIT OUTPUTS: 
4 339 ! 
44 340 ! NONE 
45 341 ‘ 
46 $06 ' ROUTINE VALUE: 
re 4 $7 } COMPLETION CODES: 
49 345 : TRUE is returned if operation is successful. Otherwise, FALSE 
50 346 ! is returned. 
51 347 ! 
26 348 ! SIDE EFFECTS: 
5 349 ! 
54 350 ! NONE 
32 38) J | 
57 33 
58 354 BEGIN 
59 355 
60 56 
61 5 
¢ 5 
5 
6 
6 
6 
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3 MAP 
357 BUFDSC : REF DESCRIPTOR, 
6 358 SRCPTR : REF BBLOCK, 
6 ; 9 CLASS : WORD; 
64 0 
65 361 LOCAL 
66 3 ¢ MSK ' Address of filter mask 
44 $7 STATUS; ' Routine status code 
69 65 MSK = UPLIT (-1, 0); 
70 06 
71 6 IF FCT 
i re THEN 
74 $ INCR I] FROM 0 TO NMLSGK_EVENTS - 1 DO 
8 4 BEGIN 


why 5}, 80S wal L Logging Gate base operations module 1b-5e sep- 130% 0: 13: $3 et Bliss-32 V4.0-74 


hed y class filters -Sep-1 ML.SRCJNMLLOGOPS .832; 
; 377 73 j IF .NMLSAB_EVENTS C.1, ETBSW_CLASS] EQLU .CLASS 
. BT 7 THEN 
: 6 fe 2 BEGIN 
; s a 4 SELECTONEU .SRC OF 
: 8 4 
: 384 80 4 CNMASC_ENT_NOD 
3 +H 3 ? MSR = TNML AB. EVENTS: ( *ETBSA NODE]; 
: 387 § 4 CNMASC_ENT_CIR 
; 88 4 4 MSR = TNMLSAB EVENTS’ c‘ r Ceiba CIRCUIT); 
: 390 0 g 4 CNMASC_ENT_LIN): 
; 31 0 87 4 MSR = TNMLSAB EVENTS: ct i" *ETBSA_ LINE); 
: 39 0 89 4 CNMASC_ENT_MOD): dule 
; Be 8 ay 2 MSR = TNMLSAB EVENTS: c" 1. VETBSA MODULE]; 
: 396 039¢ 4 COTHERWISE): Must be global 
: 397 0393 4 MSK = .NMLSAB_ EVENTS: C.1, ETBS GLOBAL); 
: 398 0394 4 
. ns es 
: 401 0397 4 EXITLOOP; 
: 40 0398 4 
: 40 0399 3 END; 
Bs 4G Pike 
3 406 0408 ; STATUS = NML_MODFIL CECT, 
im OBB us 
> 410 6208 : CLASS, 
> 411 0407 EVT$S_LOGMSK, 
ie ni 
; 414 0410 3 RETURN .STATUS 
: 416 0412 1 END; ! End of NML_MODCLS 


-PSECT S$PLITS,NOWRT,NOEXE,2 
00000000 FFFFFFFF O0010 P.AAC: .LONG <1, 0 


-PSECT SCODE$,NOWRT,2 


001C 00000 NML_MODCLS: 
<WORD Save R2,R3,R 
4 000000006 EF 9€ 0000 MOVAB NMLSAB_ EVENTS, R4 
3 00000 0 * EF 43 MOVAB P.AAC 
4 AC E 1 BLBC—s«éFCT, ts 
01 CE 00014 MNEGL #1, 1 


NML _MO 


51 
10 


B5 


FF27 
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50 
AC 
52 
03 


01 


CF 


; Routine Size: 123 bytes, Routine Base: 


000000006 


Peete module 
ilter 


64 
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OA A4 
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12 A4 
02 A4 
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Be 99:50:11 ENML-SREINALLOGOPSB32; 


NML.SRC 


i, 
R1 
Nn SAB EVENTSER1] 
(SP)+> CLASS 


RC, R2 
NMLSAB_EVENTS*+6(R11 
Re, #3 
NMLSAB_EVENTS+10(R1) 
RD, "1 
NMLSAB_EVENTS+14(R1] 
RD, rT 
AML SAB _EVENTS+18(R1) 


NML$AB “i teteaaien 
a(SP)+ 


$ 
oS I, 1$ 


#8 
CLASS SP) 
pnt 


FCT 
#7, NML_MODFIL 


Bete Se Se Ge Se Se Ge Se Se Se Ge Be Ge Be Fe Ge Ge Ge Se Be Ge Se Ge Be Ge Fe te Be Be Be Ge Be 
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NMLSLOGOPS NML Logging data base operations module 1S-se “1984 00:19:25 AX-11 Bliss-32 V4. 

v04-000 NML_MO MOBRNO " Modi fy known filters 12286871382 HE NML SREINALLOGOPS 6 §33: 

; 418 413 1 XSBITL "NML_MODKNO Modify known filters’ é 
; 419 414 1 ROUTINE NML_[MODKNO (FCT, BUFDSC, SRCPTR, SRC) = ; 
; 420 415 1 : 
> 421 213 5 }* ‘ 
; 2 ¢ rh : FUNCTIONAL DESCRIPTION: : 
> 424 219 1 } This routine adds event filters to the data base entry for a sink ; 
; 425 420 1! node. ‘ 
> 426 421 1! ‘ 
; 427 04 § 1 ! FORMAL PARAMETERS: ; 
; 428 04 1! ; 
: 429 424 1! FCT Function code. (Q=CLEAR/PURGE, 1=SET/DEF INE) ‘ 
; 430 425 1! BUF DSC Descriptor of buffer to contain modified data base ‘ 
> 431 0426 1! entr ‘ 
3 rh 0427 1! SRCPTR Pointer to source block in buffer. ‘ 
; 4 0428 1! SRC Source type code. : 
; 434 0429 1! ‘ 
> 435 0430 1 ! IMPLICIT INPUTS: ; 
> 436 0431 1! : 
; 437 Oees 1: NONE ‘ 
; 438 0435 1! ‘ 
; 439 0434 1 ! IMPLICIT OUTPUTS: ; 
; 440 0435 1! ‘ 
; 0436 1! NONE ‘ 
; 0437 1! ‘ 
; 0438 1 ! ROUTINE VALUE: ; 
> 444 0439 1 ! COMPLETION CODES: ; 
3; 445 0440 1! ; 
; 446 0441 1! TRUE is returned if operation is successful. Otherwise, FALSE ‘ 
> 447 0442 1! is returned. ° 
; 448 0445 1! ‘ 
: 449 0444 1! SIDE EFFECTS: ° 
; 450 0445 1! : 
; 1 0446 1! NONE ‘ 
; ¢ 0447 1! : 
5 0448 1 !-- : 
: 4 0449 1 r 
: $ 0450 BEGIN ‘ 
; 6 0451 ‘ 
; 7? Be eg MAP ; 
; 8 045 BUFDSC : REF DESCRIPTOR, : 
; 9 0454 SRCPTR : REF BBLOCK; ‘ 
: 460 Be 22 : 
: $28 LOCAL ‘ 
; 186 45 LASS : WORD : 
; 4 458 EVTPTR : REF BBLOCK, : 
: 4 459 MSK : 
3; 465 460 STATUS; ! Routine status code : 
3; 466 461 ; 
; 467 46 STATUS = FALSE; : 
: 468 46 ‘ 
: 469 464 INCR_I FROM 0 TO NMLSGK_EVENTS - 1 DO . 
; rth ree BEGIN ’ 
; ree CLASS = .NMLSAB_EVENTS C.1, ETBSW_CLASS); ; 
: 476 46 SELECTONEU .SRC OF ; 


H 9 
NALS PS NML Logging data base operations module 16-Sep-1984 00:19:25 AX-11 Bliss-32 V4.0-74 Page 16 
you~ NMI_ROBRNO® Modify known filters 14-Sep- 3h 99545:4} NMLSREINMELOGOPS: 63044 . (6) 
; 475 oo9 SET : 
3 of 47 ‘ 
3; «47 rik CNMASC ENT 0p d ! Node ° 
; $f at? MSR = [NMLSAB_EVENTS C.1, ETBSA_NODEJ; ° 
: 480 475 CNMASC ENT.CIR?: ! Circuit ; 
: $3 Bees MSR = NMLSAB_EVENTS C.1, ETBSA_CIRCUITI; ° 
; 48 ote CNMASC_ENT_LIN): ! Line : 
: oke rh 4 MSR = TNMLSAB_EVENTS C.1, ETBSA_LINE]; ‘ 
; rt] te) CNMASC_ENT_MOD): ' Line : 
3 ret bcRs MSR = [NMLSAB_EVENTS C.1, ETBSA_MODULE); 
: 489 0484 COTHERWISE): ! Must be global 
; 490 0485 MSK = .NMLSAB_EVENTS C.1, ETBSA_GLOBALJ; 
; 491 pane 
; 49 Bes TES; 
; 49 0488 
; 494 489 STATUS = NML_MODFIL (.FCT, 
: 495 4390 RUE, 
> 496 0491 -BUFDSC, 
: 497 049 -SRCPTR, 
: 498 049 CLASS, 
; 499 0494 : EVT$S_LOGMSK, 
; 500 0495 oMSK); 
: 501 0496 IF NOT .STATUS 
; 206 0497 THEN 
; 50 0498 EXITLOOP; 
; 504 0499 
; 505 0500 END; 
; 506 0501 ! 
3 2Or B208 ! If the function is clear and everything is alright up to this point then 
: 508 050 ! go earpuge all event classes that are present in the source block and clear 
; 509 0504 ' out all the filters. This covers the case where filters are present for 
3 310 0505 ' an unknown class. 
3 STi 3208 ! 
3 21g 050 IF .STATUS 
s 3 0508 AND NOT .FCT 
3; 514 0509 EN 
; 515 0510 BEGIN 
3 38 0511 
> 517 b21§ EVTPTR = 0; 
; 518 ba! WHILE NMLSGETNXTEVT (.SRCPTR, EVTPTR) DO 
; 519 514 4 BEGIN 
3; Seo 0515 4 
s Sel 8218 4 CLASS = .EVTPTR CEVT$W_CLASS]; 
5 3 § Beis 2 NMLSMODEVT (.FCT, FALSE, .EVTPTR, EVTSS_LOGMSK, UPLIT (-1, =-1)); 
: 4 519 END; 
3 5 520 
$ $ 521 END; 
; 5 § 
3 3 ; ? RETURN .STATUS 
: 530 525 END; ! End of NML_MODKNO 

| 
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bed 
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Ww 
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END OVMVIOM DB NU MOVPORL "WO 


~“ 
ww 


co 
bad 


wen 
won 
SSRTAS BESS 


Wo 
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SOOoOoOooooooooooooooooooooooooosooooooooooooooo 
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VGOMMNHOVCIMM "MIO NOONWISCS 0-0-9 -—- 0" 9 - 0" 9 | 0" 9 DW ON 9 
9 "OOD S FOOWOODOIOF O99 OF SBM NN IS MUOO MMM & 


00, BE 
00000000" FF 


ve) 


SPLITS,NOWRT ,NOEXE,2 
“1, <1 


SCODES,NOWRT,2 


Save R2,R3,R4,R5,R6 


NML$AB_EVENTS, R6 
STATUS 


#22, 1, RO 
NML$AB_EVENTSCROJ 
a(SP)+> CLASS 

Skt Ri 

NL SAB_EVENTS+6(ROJ 
R1, #3 

NL SAB_EVENTS+10CROJ 
Ri, #1 
NMLSAB_EVENTS+14CROJ 
RI. #4 
NMLSAB_EVENTS+18CRO] 
NMLS$AB_EVENTS+#2(RO] 
a(SP)+; MSK 


P 
CLASS, -(SP) 
BUFDSC, -(SP) 


STATUS, 9$ 

STATUS $ 

FCT, 9$ 
EVTPTR 
SP 
SRCPTR 

, , NMLSGETNXTEVT 
@EVTPTR, CLASS 

B AAD 
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; Routine Size: 170 bytes, Routine Base: S$CODE$ + 0187 


= 7 - = NP 
VOs0OG > «= NAL HOBRNO Modity known’ filters u® bat 2p-1084 93:50:42 ENMLsSREIALLOGOPS: 83674 ‘at ve 
08 D PUSHL EVTPTR 3 . 

FE be Bobs CLRL = (SP) : ; 

04 AC DD OO09A PUSHL FCT : ; 

00000000V EF 05 FB 0009 CALLS #5, NMLSMODEVT : ; 

4 11 Q00A4 6 6-8 ; 0513 ; 

50 4 DO O00A6 9$: - MOVL —s STATUS, RO ; 0523 

04 000A9 T ; 0525 ; 


NM PS NML Lo data base operations module $ep-1984 00:19:25 AX-11 Bliss-32 V4.0-74 P & 
Vorebose NALSRETEPCPICTERS het orent Siitecs 16- sen 1944 eT EA COMET Ree Ee age HS 
¢ 2 1 ZSBITL "NMLSGETSPCFILTERS Get event filters’ 
GLOBAL ROUTINE WAL SEE TOPCEILTERS 
(DATDSC, SNK, SRC, ENTDSC, CLASS, MSKPTR, RESLEN) = 


be 
FUNCTIONAL DESCRIPTION: 


This routine gets event filters for the specified source and class. 
FORMAL PARAMETERS: 


DATDSC Descriptor of current data base entry. 
SNK Logging sink type code. 


SRC Event source type code. 

ENTDSC Event source id string descriptor. 

CLASS Event class code. 

MSKPTR Address of filter mask quadword. 

RESLEN Address of longword to contain byte count of 


resulting mask. 
IMPLICIT INPUTS: 


SOWONAUS WN S$ OODNAUSWN—"OOONOu 


AOEASOUMMNVIVVIVIVIVIVIE BREESE 


: 3 

; 0 § 1 

3 ? 1 

; } 

.. 2 1 

3 H 8 4 1 

; 2 0535 ! 

; > 0 $ 1 

3 6 1 

; 0539 «1 

3 0540 1 

ia 0541 1 

= 0 ¢ 1 

, % 0 1 

. > 0544 1 

; 3 0545 (1 

.. 3 0546 1 

. = 0547 1 

s > 0548 1 NONE 

> 3 0549 1 

;. 9 0550 1 IMPLICIT OUTPUTS: 

—s 0 g 1 

s > 0554 1 ROUTINE VALUE: 

3 H 1 8 2 ; COMPLETION CODES: 

3; $5 0557 1 TRUE is penurnee if operation is successful. Otherwise, FALSE 
; 564 0558 #1 is returne 

: 565 0559 1 

; 566 0560 1 ! SIDE EFFECTS: 

3 Sor 0561 1 

; 568 0 6 1 NONE 

; 569 0565 1 

; 570 0564 1 !-- 

s 37) 0565 1 

3 276 0566 BEGIN 

s $7 0567 

3 «4574 0568 MAP 

s 375 8 9 DATDSC REF DESCRIPTOR, 

; 576 0 ENTDSC : REF DESCRIPTOR, 

; arf 8 1 MSKPTR : REF BITVECTOR; 

: 278 0 g LOCAL 

; 580 0574 EVTPTR : REF BBLOCK ' Pointer to event block 
: 581 0575 FILPTR : REF BITVECTOR, i Pointer to event filter mask 
3 ane B76 LOGPTR : REF BITVECTOR, ! Pointer to event log mask 
s 58 057 SRCPTR, ! Pointer to source block 
3: 584 378 ZERCNT; ! Trailing zero byte count 
3; 585 57 

; 36 580 

; 3H 581 ; Set the source block. 

Ve 582 


sz 


SS 


PS NM i ° - - -O- 
voc NALSGETSPCPILTERS Get event Filters ise Sep lobe 19:50:17 ENML«SRCINALLOGOPS.B32; an 


4 4 ? cen” NMLSMATCHSRC (.DATDSC, .SNK, .SRC, .ENTDSC, SRCPTR) 
s 4! 5 RETURN FALSE; 
: 38 ; Get the event block. 
; 232 $89 IF NOT NMLSMATCHEVT (.SRCPTR, .CLASS, EVTPTR) 
: 597 591 RETURN FALSE; 
: 598 0396 ' 
3 223 0394 Get combined specific and global filters. 
3 602 ge IF NOT NMLSGETCOMFILTERS (.DATDSC, .SNK, .CLASS, .MSKPTR, .RESLEN) 
: 60 059 RETURN FALSE; 
; 604 0598 
; 605 b288 RETURN TRUE 
; 606 600 2 
: 607 0601 1 END; ! End of NMLSGETSPCFILTERS 
0000 00000 - ENTRY WAL SGETSPCFILTERS. Save nothing 3; 0527 
5E 08 C2 Obos SUBL2 #8, SP é 
5E DD 0000 PUSHL SP ; 0583 
7E 0c AC 7D 00007 MOVQ SRC, -(SP) : 
7E 04 AC 7D 00008 MOVQ DATDSC, -(SP) 3 
00000000V_ EF 05 FB QOD0F CALLS #5, NMLSMATCHSRC : 
2c 50 €9 00016 BLBC R 1 : 
AE 9F 00019 PUSHAB EVfPTR : 0589 
14 AC DD OO0IC PUSHL CLASS é 
ag DD OO001F PUSHL SRCPTR : 
00000000V_ EF 9 Fe 898 2 CALLS #3, NMLSMATCHEVT 3 
19 0 § 0029 BLBC . 3 
7E 18 AC D 0002C MOVa MSKPTR, -(SP) 3; 0595 
14 AC bp 00 PUSHL CLASS : 
7E 04 AC D 000 MOVa DATDSC, -(SP) : 
00000000V_ EF 05 fe iH CALLS 45, NMLSGETCOMFILTERS ; 
04 50 € BR8 E BLBC RO. 1$ 3 
50 01 DO 00041 MOVL #1, RO ; 0599 
04 00044 RET 3 
50 yi Bbc? 1$: CLRL RO 3; 0601 
4 047 RET $ 


; Routine Size: 72 bytes, Routine Base: S$CODE$ + 0261 
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L Loggin data base operations module 16-Sep-1984 90: 13:93 


AX-11 Bliss-32 V4.0-74 
SGETCOMFILTERS Get event filters 14-Sep-1 


NML ..SRCJNMLLOGOPS .B32; 


33 
z 


ZSBTTL "NMLSGETCOMFILTERS Get even ers' 


t_filt 
GLOBAL ROUTINE NMLSGETCOMFILTERS (DATDSC, EVTPTR, SNK, MSKPTR, RESLEN) = 


polo lolo) 


AAPSASO 
SRLSAR GO 


'¢ 


lee 
! FUNCTIONAL DESCRIPTION: 


This routine gets event filters from the specified event block 
and combines them with the global filters for the class. e 


' 
Get global filter mask for this class. 


CLASS = .EVIPTR CEVT$W_CLASS); 
NMLSGETGBLFILTERS (.DATDSC, .SNK, .CLASS, .MSKPTR); 


1 
1 
1 
1 
1 
1! 
1! 
1! 
\9 } } resulting mask is the complete event mask for the class and source. 
pols : FORMAL PARAMETERS: 
bei 1 ! DATDSC Descriptor of current data base entry. 
0615 1! EVTPTR Pointer to event block. 
Beis 1! NK Event sink type code. 
0617 1! MSKPTR Address of filter mask quadword. 
0618 1! RESLEN Address of longword to contain byte count of 
+94 : resulting mask. 
0621 1 ! IMPLICIT INPUTS: 
06 ¢ 1! 
06 4 NONE 
0624 1! 
0625 1 ! IMPLICIT OUTPUTS: 
0626 1! 
0627 1! NONE 
0628 1! 
0629 1 ! ROUTINE VALUE: 
pogo ' } COMPLETION CODES: 
bess 1! TRUE is returned if operation is successful. Otherwise, FALSE 
0635 1! is returned. 
0634 1! 
0635 1 ! SIDE EFFECTS: 
0636 1! 
0637 1! NONE 
0638 1! 
0639 1 !-- 
0640 1 
0641 BEGIN 
Bee§ 
064 MAP 
0644 DATDSC : REF DESCRIPTOR, 
645 EVTPTR : REF BBLOCK ! Pointer to event block 
6 MSKPTR : REF BITVECTOR;: 
3 LOCAL 
CLASS ' Event class 
650 FILPTR : REF BITVECTOR, ' Pointer to event filter mask 
1 LOGPTR : REF BITVECTOR, ' Pointer to event log mask 
§ ZERCNT; ! Trailing zero byte count 
4 
8 


PUPA & BE 


SERS SS 


ro 


sz 
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ing data base operations module 
OMFILTERS Get event filters 


' 
; Combine specific masks with global mask. 


LOGPTR = EVTPTR CEVT$Q_LOGMSK]; 
FILPTR = EVTPTR CEVTSQ-FILTERMSK); 


INCR_ I FROM 0 TO (EVTSS_LOGMSK * 8) = 1 DO 
BEGIN 


MSKPTR a = .MSKPTR (.1] OR .LOGPTR C.1); 
MSKPTR L.1J = .MSKPTR C.1J AND NOT .FILPTR C.1]; 


END; 
1 
Adjust count to exclude zero bytes on the end of the quadword mask. 
ZERCNT = 0; 
DECR I FROM EVT$S_LOGMSK - 1 DO 
BEGIN 


IF  eeeaiee + .1)<0,8> EQLU 0 
ZERCNT = .ZERCNT + 1 
ELSE 
EXITLOOP; 
END; 
' Set up mask length for return. 
-RESLEN = EVT$S_LOGMSK - .ZERCNT; 


RETURN TRUE 


END; ! End of NMLSGETCOMFILTERS 
003¢ 00000 .ENTRY NMLSGETCOMFILTERS, Save R2,R3,R4,R5 
50 08 BC 3¢€ 00002 MOVZWL @EVTPTR, gLASS 
53 10 ac dO 9006 MOVL MSKPTR, R 
09 BB OOOOA PUSHR  #*M<RO.R3> 
oc AC 0D b000¢ PUSHL SNK 
4 AC DD OO00F PUSHL DATDSC 
00000000v EF 04 FB 00 3 CALLS #4, NMLSGETGBLFILTERS 
08 AC 4 1 0001 ADDL3 #4. EVTPTR, L 
08 Ac ¢ ¢1 0001 ADDL3 #12, EVTPTR, FILPTR 
1 04 0 0 ie 
01 1 EF 1$ EXTZ2V J, #1, (R3), R2 
1 1 EF OO02A EXTZY 1; #1. (LOGPTR), RO 
0 ; C8 F BISL Re 
1 F ¢ INSV RO, 1. #1, (R3) 
ot 1 €F ExTZv 1, #1. (RS), R 
1 51 EF 0003¢ EXTZV I. #1, (FILPTR), RO 


nN 9 
1eeSep-1986 12:50:47 ENML SREINALLOGOPS B32; 
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VOU=600 «NALS GETRORPILTERS “Serevent fitters’ hata inh NAL SRCINALLOGOPS-B30+4 


CA 00041 BICL2 RZ 
63 01 ‘ § FO 4b INSV I (R3) 
D 1 F F 49 AOBLEQ Re i "ig 
0 4 mova 
6043 9 2$: TSTB (15CR3I 
i BNEQ 
1D INCL ZERCNT 
Fé 0 F SOBGEQ 
16 BC 0 1 ¢3 A 3S: SUBL3 ZERCNT, #8, @RESLEN 
50 01 DO 0005 MOVL #1, RO 
04 00062 RET 


; Routine Size: 99 bytes, Routine Base: $CODE$ + 02A9 
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NMLSLOGOPS NML_ Logging data base operations module b-5e -1984 00:19:25 AX-11 Bliss-32 V4.0-74 Page 24 
vO4-006 NMLSGETOBLPILTERS Get global filters for sink 1e-geb-1984 $orsr7) | EAM sabe cone o35, oe 8 
; 703 695 1 XSBITL "NMLSGETGBLFILTERS Get global filters for sink and class' 
; 7046 696 1 GLOBAL ROUTINE NMLSGETGBLFILTERS (DATOSC, SNK, CLASS, MSKPTR) = 
Bm BI 
: 707 0699 ' FUNCTIONAL DESCRIPTION: 
: 709 070) 1/ This routine returns the global filters for the specified 
: £9 BOs ! } sink type and class. 
: 71 0704 1 | FORMAL PARAMETERS: 
. oy 0705 1! 
: «714 fa: 1! DATDSC Descriptor of source block buffer. 
3 £15 7 1! SNK Logging sink type code. 
: 716 tai 1! CLASS Event class code. 
$ ate 184 : MSKPTR Pointer to quadword to contain global filter mask. 
: £19 Ori) { IMPLICIT INPUTS: 
he all 
: 558 0715 1! IMPLICIT OUTPUTS: 
: 724 0716 1! 
: Oe Ore 1 i — 
: 727 0719 1 |! ROUTINE VALUE: 
3 ose oss ! COMPLETION CODES: 
: 589 b7s¢ 1/ TRUE is returned if global filters are found, FALSE is returned 
Tee 6) O7es 1! if no global filters are found. If no global filters are found 
3 ee Bist ! the resulting filter mask will be zeroed. 
: 734 0726 1 | SIDE EFFECTS: 
> wae 0727 1! 
: 736 0728 1! NONE 
3; 737 0729 1! 
: 738 0730 1 !-- 
: 739 0731 +1 
: 740 07 ; 2 BEGIN 
ARE coca 
: 7% 0735 EVTPTR : REF BBLOCK, ' Event block pointer 
: 744 0736 SRCPTR : REF BBLOCK, ' Source block pointer 
: eee O38 : STATUS; ' Routine status 
: Ot 0739 Zero the filter mask. 
; 149 P41 ¢ | CHSFILL (0, EVTSS_LOGMSK, .MSKPTR); 
: 031 748 If global filters are found then just return. 
: 738 745 "fF NOT NMLSMATCHSRC (.DATDSC, 
: 755 29 NMASC_ENT_KNO, 
; £38 ree UPLIT™(0,°0), 
: 759 0751 RETURN FALSE; 


dD 10 
NMLSLOGOPS NML_ Logging data base operations module 16-Sep-1984 19:25 AX-11 Bliss-32 V4.0-74 
yO%~008 NMLSGETEBLPILTERS Get global filters for sink acep-19b forgot EAM SRedWAEL ogobe bao, 
; 760 7 
; 761 7 i ! 
3; 754 ! If global filters are found for the specified class then move them 
: St f 5 into the result mask. 
: 765 7 § "IF NMLSMATCHEVT (.SRCPTR, 
: 76 07 8 CLASS 
: 76 07 EVTPTRS 
: 768 0760 THEN 
: 769 0761 BEGIN 
: O70 ares CHSMOVE (EVT$S_LOGMSK 
; ae 764 EVTPTR PEvTS6_LOGHSK], 
: 77 0765 : R); 
; 774 3208 STATUS = TRUE; 
: 775 076 
; £76 0768 END 
: 77 0769 ELSE 
s 778 0770 STATUS = FALSE; 
: 388 ae: RETURN .STATUS 
> 781 o778 2 ; 
: 782 0774 1 END; ! End of NMLSGETCBLFILTERS 
.PSECT $PLITS,NOWRT,NOEXE,2 
00000000 00000000 00020 P.AAE: .LONG 0, 0 
.PSECT $SCODE$,NOWRT,2 
003¢ 90009 .ENTRY NMLSGETGBLFILTERS, Save R2,R3,R4,R5 
5E 08 C2 9002 SUBL . 
08 00 6E " 00 2¢ 9005 MOVCS #0, (SP), #0, #8, @MSKPTR 
BF pd 0000C PUSHL SP 
00000000° FF 9F OO00E PUSHAB P.AAE 
7E 1 ce 0014 MNEGL #1, -(SP) 
7E 04 AC D 00017 MOV. DATDSC, -(SP) 
00000000v_ EF g FB 1 CALLS #5, NMLSMATCHSRC 
rv 2) a 
o¢ AC DD 0 8 PUSHL CLASS 
AE DD B PUSHL SRCPTR 
00000000V EF 03 FB 0 CALLS #3, NMLSMATCHEVT 
i 06 A f 5 SbvL EVfPTR, RO 
10 BC 04 AO ob BB 09 MOVC3 i, 4(RO), @MSKPTR 
50 1 BO 46 ROVL #1. STATUS 
50 b4 O94 1$: CLRL = RO 
4 0004 RET 


; Routine Size: 73 bytes, Routine Base: S$CODE$ + 030C 


roe 


Sete Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Se eee 


oocoooo 


ANN 
NMEA 
NOUS 


Nat SQG0PS 


NALSGETEOLPICTERS 


et g 


tier 


modul 


ters 


Gor sink TECRepcTBRE 98:48:99 


F 10 


NALS PS NML Lo data base operations module 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 27 

v04- NAL SE CERNE T Clean event masks 18: =Sep- 138 99: 3 #3 YNML SRCINMLLOGOPS .B32; ° 8s 

; 784 775 1 %SBTTL ‘NMLSCLEANEVT Clean event mas : 
: f 5 wre ! GLOBAL ROUTINE NMLSCLEANEVT (SNK, seer ec) : NOVALUE = ‘ 
iz 5 778 1 !4+ ; 
3 5 a4, i FUNCTIONAL DESCRIPTION: ; 
; 790 781 1: This routine runs through all sources for the specified Sg type : 
3 ie f § ! and deletes all event filters that match the global filte ‘ 
; 79 784 «(1 i FORMAL PARAMETERS: : 
. on: Sie ston He. pe 5 : 
3 ogging sink type code. 3 
3 es: se ! BLKDSC Beseripter of ret source block data. : 
; 798 0789 1! IMPLICIT INPUTS: : 
; 799 0790 1! ; 
; 800 0791 1/ NONE ; 
; 801 4454 1 i F 
: 80 079 1 i IMPLICIT OUTPUTS: 3 
; 80 0794 1! $ 
; 804 0795 1! NONE 3 
; 805 0796 1: 3 
3 B08 0797 1 | ROUTINE VALUE: ; 
; 80 0798 1 ! COMPLETION CODES: r 
: 808 0799 1: 3 
; 809 0800 1! NONE s 
; 810 0801 1! 3 
3; 6811 44 1} SIDE EFFECTS: 

3 Si¢ 0803 1! 

$s 813 0804 1! NONE 

: «Ble 0805 1} 

s 815 0806 1 i- 

; 816 0807 1 

; 817 0808 BEGIN 

3; Be 0809 

3 51? 0810 LOC 

3 20 0811 EVTPTR : REF BBLOCK 

; 821 OBi¢ FILMSK : REF BITVECTOR, 

; & g 081 GBLEVT : REF BBLOC 

: 8 0814 GBLMSK : REF BITVECTOR, 

; 824 0815 LOGMSK : REF BITVECTOR, 

3; 825 pais GBLSRC : REF BBLOCK, 

3 6 81 SRCPTR : REF BBLOCK, 

3 i bai8 STATUS; 

; , 4 : If there are no global filters then just clean up the filter masks. 

4 31 O8 § it SRATeene (.BLKDSC, .SNK, NMASC_ENT_KNO, 0, GBLSRC) 

3 Q i ¢ ; BEGIN 

3 35 ; § : Make sure the filter mask is zeroed for the global filters. 

3 3? 8 8 GALEVT = F 

; 838 8 WHILE NMLSGETNXTEVT (.GBLSRC, GBLEVT) DO 

3 4 BB | BEGIN 


IN 
ooo 


oO 
~ 


0.00 09 09 Go Co G9 Co. 00 C9 Co 
SAREANLSESOS 
SOOoOooCoOoSoSo 


$ 1 : § 
s 4 

; 18 4 
: B44 5 
: 45 § 
: 46 

: 847 8 
: sts 839 
: 849 840 
; 850 0841 
; 4851 eK 
: Beg bce 
; 854 845 
; 855 oeg 
: 856 084 
; 857 0848 
; 858 0849 
; 859 0850 
; 860 0851 
: 861 0836 
3 ace 085 
; 0854 
3; 864 0855 
; 865 8838 
; 866 085 
; 867 0858 
; 868 0859 
; 869 0860 
: 870 0861 
3; 871 Bao¢ 
; HG 086 
; BT 0864 
3; 874 0865 
; 875 0866 
; 876 0867 
; 877 0868 
; 878 0869 
; 879 gee 
; 880 871 
; «4881 th 
é aB8 087 
; 88 Bare 
3 bss $B 
3; 886 087 
3 08 


ws PS NML_Lo 
_ NMLSCL 


ek 


DPPRAEDP SRD PPP DE SD. PPS BS EB EE AAAI IPP IPPININI NAHE HTT 


i 
N 
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GBLMSK = GBLEVT CEVTS$Q_FILTERMSK); 
INCR_I FROM 0 TO (EVTSS_FILTERMSK * 8) = 1 DO 
BEGIN 


GBLMSK (.1] = 0; 


END; 
END; 
END 
ELSE 
GBLSRC = 0; 


For every source clean up all event masks. 


SRCPTR = 0; 
WHILE NMLSGETNXTSNK (.BLKDSC, .SNK, SRCPTR) DO 
IF .(SRCPTR CSRCSB_SRCTYPE)<0,8,1> NEQ NMASC_ENT_KNO 
BEGIN 


every event mask get rid of everything that matches the global 


or 
ilters. 


F 
‘ 
EVTPTR = 0; 
WHILE NMLSGETNXTEVT (.SRCPTR, EVTPTR) DO 
BEGIN 
LOGMSK = EVTPTR fevisa LOGMSK]; 


FILMSK = EVTPTR CEVTSQ~FILTERMSKI; 
IF .GBLSRC NEQA 0 


STATUS = NMLSMATCHEVT (.GBLSRC, 
-EVTPTR CEVTSW_CLASSJ, 
GBLEVT) 
ELSE 
STATUS = FALSE; 
IF .STATUS 
AND (.GBLSRC NEQA 0) 
THEN 
BEGIN 


GBLMSK = GBLEVT CEVT$Q_LOGMSK); 
INCR_I FROM 0 TO (EVTSS_LOGMSK * 8) - 1 DO 
BEGIN 


LOGMSK I} = .LOGMSK [.1] AND NOT .GBLMSK_(.1]; 
FILMSK C.1) = .FILMSK C.1) AND .GBLMSK C.1); 
END; 
END 
ELSE 
BEGIN 
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NMLSCLEANEVT Clean event masks 14-Sep-19 NML.SRCINMLLOGOPS.B32;1 

88 § INCR_ 1 FROM O TO (EVTSS_LOGMSK * 8) - 1 DO 
BEGIN 

33 5 FILMSK C.1] = 0 

a8 wei aoe 

bags END; 

4944 4 END; 

089 END; 

0898 ; 

0899 

0900 1 


END; : 
END; ! End of NMLSCLEANEVT : 
03FC 00000 .ENTRY NMLSCLEANEVT, Save R2,R3,R4,R5,R6,R7,R8,R9 = 0776 : 

59 00000000V EF i 00002 MOVAB NMLSGETNXTEVT, R9 : ; 

5E 10 C2 00009 SUBL2 #16, SP F F 

SE DD b000¢ PUSHL + 0822 ; 

7E D4 0000 CLRL.  =(SP) ; : 

7E 01 CE 0001 MNEGL #1, =(SP) : ; 

04 AC DD 0001 PUSHL SNK : ; 

08 AC DD 00016 PUSHL BLKDSC : ; 

00000000v EF 05 FB 90019 CALLS #5, NMLSMATCHSRC : ; 
20 50 €9 000 g BLBC ~—E_—«aRO; : F 

0c AE D4 000 CLRL  GBLEVT : 0828 ; 

OC AE 9F 00026 1$ PUSHAB GBLEVT + 0829 ; 

04 AE DD 900 9 PUSHL  GBLSRC : : 

69 02 FB 0002c CALLS #2, NMLSGETNXTEVT : : 

13 50 £9 0002F BLBC : ; 

54 Oc AE 0c ¢1 000 ; ADDL3 #12, GBLEVT, GBLMSK + 0832 : 
50 04 000 CLRL : 0837 F 

00 64 30 E3 00 9 a8: BBCC I, (GBLMSK), 3$ : ; 
F8 50 F F3 00030 3$: AOBLEQ #63, I, 2$ + 0834 3 
E317 00041 BRB 1$ + 0829 F 

6E D4 00045 4$: CLRL = GBLS + 0843 ; 

04 AE D4 00045 5S: CLRL +‘ SRCPTR + 0847 F 

04 AE 9F 00048 6$: PUSHAB SRCPTR + 0848 ; 

04 AC DD 00048 PUSHL SNK : ; 

08 AC DD 00 af PUSHL BLKDS¢ : ; 

00000000vV_ EF : FB CALLS #3, NMLSGETNXTSNK : ; 
01 0 Fs ; BLBS RO, : : 

53 04 AF po 06 7$ MOVL RCPTR, R3 > 0850 ; 

FF OF 03 =A | 6 CMPB (R3), a ; F 

veg 6 BEQL «S$ : ; 

08 AE pA 6 CLRL  ——*EVTPTR : 0857 : 

AE 9F O006A 8S PUSHAB EVTPTR : 0858 : 

53 0D D PUSHL R 5 F 

69 : FB F CALLS #2, NMLSGETNXTEVT : ; 

d3 E g BLBC RO, 6$ 3 3 

56 08 AE 4 €1 0007 ADDL3 #4. EVTPTR, LOGMSK : 0861 : 
8 AE ¢ C1 0007A ADDL3 #12, EVTPTR, FILMSK > 0862 : 

D4 0007F CLRL OR > 0864 : 

6— 05 00081 TSTL  GBLSRC F : 


ren 


if 
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NMLSCL 


way SE OGOPS 
v04-000 


oro owercu ~m ANA DOO 
Sse ero oo EO ONS 
co cD 000000000 co coco co coco 
ooo ooo°oo So ooooo0oo 
Se Fe ee ee Fe fe Fe Fe Fe Fe Fe Fe Fe FG FH FO FR FR Fe FO FR FR FH FR FR Fe Fe 
Ne AN — 
~~ coe w~oe ot 
” “w ” 
— = ss Bee = rey 
> —~I Aan ORR 4 wT 
~~ ww Oo ~~ Omww -_ - 
ss. a Oo WOM JIMW “ 
” vv z= -et=z ~ . 
- - A . On ad aad Cad 7A 
‘ «wm NN &- OW oo -_ b 4 a) 
==> - > wo -—uY mo ne 
. fe wae~w aBeew Re = 
ac jI< A . = © 
K—VE-—-— YMwWw® = 9™N 8 8 Oe 8 aan 
F>OA.Q@2n 35D" 90 ee eee eae “ 
wew -— a Re . ~~ « 
a> + Mad «+s ss ese ™m ~» 
PAMOWOMOSre-—ws sw +s SV OM “Ow 
OC VBOIBVON —- ONE Be FS SS SS ST BO BO 
eo; oe o 
el) Mm Som >>i~w ww w 
aI INE I UINN I ONINZE OS IL 
BVM >H USOT OMDOAl-— VOM + OCH OO VADe- 
w2O 724 Oe YU OL KX Ke ZK KO ZOE IMOacw 
@-08. £20 VE OVOO SL VOwWwO-wwzOo—-<aOvodtcoer 
A a HF 
PAO - we~T 
ar _— ee 


MUAY ££ ie - COMO LOIN EO OO WMO DOWN OOuUMn 
DOWDDDESOSOSO Ee eC CMOOODVVV AOAC Ouww 
OOoOoQOOCCOOOOOOOOCOOCOCOOOOOCOOOoOoOoOO 
MOu VOODOO TOO sue COU vstomer smn 
—-O0M Ou Oc OWWYUOWWUL WWOUNL en OWu eK O 


DWVWWUMPNOOSF-F.CU-FOOO—VOONOR—u-OOuN 
FWNE DO LOMOUMNMNOWMMMAAAALAALAPI OLA 


Wwve 
ooo 


-—VNO- - O- OO Wo 


7E 
34 
AE 


00000000v fF 
7 
oc 


w wn oo 
oo ou 


54 
66 
64 
0 
65 
6 


N_—- ON 
mw OWN 


65 


230 bytes, Routine Base: S$CODE$S + 0355 


; Routine Size: 


Ss 


10 
$ i = = 3 3 - = e = 
VOU=000 —-NALSCLERNSRc”*Ctean sources ov® IESeocH9Be QR:IRE¢E  YABCTL Baer #Za¥4- 83049 


: 911 901 1 XZSBTTL "NMLSCLEANSRC Clean sources’ ’ 
: a 2 ¢ ! GLOBAL ROUTINE NMLSCLEANSRC (BUFDSC, SNK, BLKDSC) : NOVALUE = : 
; 916 904 1 !+44 3 
$ ai? Benz ! FUNCTIONAL DESCRIPTION: : 
3 319 0307 1! This routine goes shrougs all source blocks for the specified 3 
; 918 908 1! sink ype and removes all event blocks that have no filters set. 3 
$ a 8494 } } Source blocks with event blocks are also removed. : 
; 921 0911 1 =! FORMAL PARAMETERS: § 
; 9 ¢ ogg 1! 3 
; 9 915 1! BUF DSC Descriptor of buffer containing source blocks. 3 
: 924 Boye . | NK Logging sink type code. : 
; 2 ? 3453 : BLKDSC Descriptor of all source block data in buffer. : 
; $37 0917 1 =! IMPLICIT INPUTS: 3 
; 928 0918 1! 3 
; 44 0919 1! NONE s 
; 930 0920 1! 3 
3 33) 0921 1 =! IMPLICIT OUTPUTS: 3 
; 9 ¢ 09 ¢ i! 3 
; 93 09 1! NONE PF 
; 934 0924 1! 3 
; 935 0925 1 ! ROUTINE VALUE: j 
; 936 0926 1 ! COMPLETION CODES: 3 
3; 937 0927 1! 3 
; 938 0928 1! NONE 3 
; 939 0929 1! 3 
; 940 0930 1 ! SIDE EFFECTS: PF: 
3; 941 0931 1! 3 
3 94 474 1! NONE 3 
; 94 0935 1! 3 
3 944 0934 1 !-- 3 
3 «6945 0935 1 ; 
: 946 0936 BEGIN 3 
; 947 0937 F 
:; 94 0938 LOC 3 
3; 949 0939 EVTPTR : REF BBLOCK ! Pointer to event block 3 
; 9 0940 FILMSK : REF BITVECTOR, : 
$ 1 0941 LOGMSK : REF BITVECTOR, 3 
3; 9 094 OLDEVT : REF BBLOCK, ! Pointer to previous event block 3 
; 95 094 OLDSRC : REF BBLOCK, ' Pointer to previous source block F 
: 954 944 SRCPTR : REF BBLOCK, ! Pointer to current source block 3 
; 955 945 STATUS; 3 
: 328 94 3 
: 95 094 OLDSRC = 0; 3 
; 958 948 SRCPTR = 0; 3 
: 959 949 WHILE NMLS$GETNXTSNK (.BLKDSC, .SNK, SRCPTR) DO : 
3 +4 320 BEGIN : 
; 308 328 CHSMOVE (.SRCPTR CSRCS$W_LENGTH], .SRCPTR, NMLS$T_SRCBUFFER); : 
> 964 954 OLDEVT = 0; 3 
; 965 955 EVTPTR = Q; é 
> 966 956 WHILE NMLSGETNXTEVT (NMLST_SRCBUFFER, EVTPTR) DO ; 
3; 967 0957 4 BEGIN F 


10 
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NML .SRCIJNMLLOGOPS .B32; (11) 


<Zz 


>; 968 928 4 3 
: 9 9 4 LOGMSK = EVTPTR CEVT$Q_LOGMSK] : 
; 370 $e 4 FILMSK = EVTPTR FEVISa-Foorennexa; : 
3 44 306 4 STATUS = FALSE; : 
; 97 963 4 INCR I FROM 0 TO (EVTSS_LOGMSK * 8) - 1 DO ; 
3; 974 964 BEGIN 3 
: 975 965 3 
3 ace 298 IF .LOGMSK C.1J] OR .FILMSK C.1) . 
; 97 96 THEN 3 
; 978 0968 6 BEGIN 3 
; 979 969 6 STATUS = TRUE; . 
; 980 970 3 EXITLOOP; 3 
; 981 971 : 3 
3 o8¢ 0972 4 END; 3 
; 98 0975 4 3 
; 984 0974 4 IF NOT .STATUS é 
: «4985 0975 4 THEN 3 
; 986 0976 5 BEGIN é 
; 987 0977 5 NMLSREMEVT (NMLST_SRCBUFFER, .EVTPTR); $ 
; 9 0978 #5 EVTPTR = .OLDEVT; ! Back up event pointer ; 
: 989 0979 5 END 3 
; 990 0980 4 ELSE : 
; 991 0981 4 OLDEVT = .EVTPTR; : 
3 936 0982 4 : 
3; 99 098 END; : 
3 994 0984 ; 
; 995 0985 IF .NMLST_SRCBUFFER CSRCSW_MSKCOUNT] NEQU 0 : 
: 996 0986 3 THEN ; 
: 997 0987 4 BEGIN ; 
; 998 0988 4 NMLSREPSRC (.BUFDSC, .BLKDSC, .SRCPTR, NMLST_SRCBUFFER); 

; 999 0989 4 OLDSRC = .SRCPTR; 

: 1000 0990 4 END 

: 1001 0991 3 

5 1006 0992 4 BEGIN 

: 100 0993 4 NMLSREMSRC (.BLKDSC, .SRCPTR); 

: 1004 0994 4 SRCPTR = .OLDSRC; ! Back up the source pointer 

: 1005 0995 ; ND; 

3: 1006 0996 

: 1007 0997 2 END; 

3; 1008 0998 2 

; 1009 0999 1 END; ! End of NMLSCLEANSRC 


OFFC 00000 ENTRY NMI SCLEANSRC. Save R2,R3,R4,R5,R6.R7,RB,RI,-; 0902 
SE 4 C2 000 SUBL2 #4, - : 
38 D4 0005 CLRL. — OLD SRC > 0947 
E D4 0 CLRL SRCPTR ; 0948 
SE OD 03 1$: PUSHL SP > 0949 
08 AC DD PUSHL SNK : 
00000000v_ EF . 03 pe if CALS Been SGETNXTSNK : 
i f EB 18 BLES RO. 2$ : 


3; Routine Size: 


WMH WS QOONO LSOrwsmmnoom 


PPWMWIOM YS UOCUMVUMOOMOM & PUI 
RMN Or 
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56 
00000000" EF 66 
Og 
4 
00000000' 
00000000V gr 
5A 04 AE 
58 04 AE 
04 6A 
05 98 
EF 50 
16 
04 
00000000' 
00000000V_ EF 
04 AE 
59 04 
00000000' 
00000000' 
oc 
04 
00000000V_ EF 
58 
0c 
00000000V_ EF 
6E 
178 bytes, Routine Base: 


; 
1 
04 18 
Be 1¢ 
F 
D4 ? 
& 9 
F C 
F Be 
3 
C1 F 
C1 00044 
D4 8 49 
04 4B 
Hf se 
dO 008s 
i 058 
FS QOO5A 
E8 0005E 
DD 00061 
9F 00064 
Fe B2GA 
dO 00071 
11 00075 
dO 4 fd 
1 it 
3 00083 
9F 00085 
DD 00088 
DD 0003D 
DD 4 
Fe 0009 
DO O009A 
11 0009D 
DD O009F 
DD QO0A1 
FB OO0A4 
0 Boone 
1 QOOAE 
04 00081 


SCODES + 0438 


sep] 
~Sep-1 
2s: 


3$: 


8$: 
9$: 


10$: 


84 12:56: 


j 


—W 


ope Bliss-32 Me et od 
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6 
) 


R 
(R6), NMLST_SRCBUFFER 


E 
NML$T_SRCBUFFER 
#2, NALSREMEVT 
bEVT, EVTPTR 
VIPTR, OLDEVT 
NMLS$T_SRCBUFFER+22 
NL ST_SRCBUFFER 
BLKDSC 
BUF DSC 
#4, NMLSREPSRC 
R6, OLDSRC 
11$ 
6 
BLKDSC 
#2, NMLSREMSRC 
OLDSRC, SRCPTR 


oO 


FS 
2 


e 


polo fofololololeleleloleloaleolelolo) 


ALAR POPOROPORIPONITUND 2 2 SoS 


WN "OO OONOUIS WN “OOONOUS Ww 


neues 


ve 


pojeololalololololo) 
uw 


DOGS 


oooo 
fw 


RRARAREREREEER 
FUR O OONOUS WMO 


Mmm 
CSOnNOu 


ee ee ee ee ed ee ee ae a a cae a a a a ed a ce a ee ee ee a ae ce ed ce ee ee ee a ee ee ed ee ee ee ded ed 
Cooo°o°o 
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NMLSHATCHSAC Match speci tie source 1 ~300 7} 382 99:43:97 NML.SRC Wer deobs 53004 o0¢ 435 ve 
1000 1 ZSBTTL "'NMLSMATCHSRC Match specific source’ 3 
} : GLOBAL ROUTINE NMLSMATCHSRC (BLKDSC, SNK, SRC, ENTDSC, SRCPTR) = , 
‘i 1 !44 : 
: : ! FUNCTIONAL DESCRIPTION: : 
1 6) 1 i This routine searches the sink node buffer for a source block : 
1008 : that matches the specified event source. : 
1009 1} FORMAL PARAMETERS: 3 
1911 1; BLKDSC Descriptor of source block buffer. F 
1 1g ) SNK Logging sink type code. 3 
101 1! SRC Event source type code. ; 
1014 1! ENTDSC Event source id string descriptor. : 
1015 1! SRCPTR Pointer to penquere in which to return address 3 
1318 } of source block. : 
101g i IMPLICIT INPUTS: ; 
1020 1! NONE : 
1021 1! ; 
1098 ; } IMPLICIT OUTPUTS: : 
1024 1! NONE : 
1025 1! $ 
10 $ 1 ! ROUTINE VALUE: 3 
1° i : COMPLETION CODES: ; 
196) : TRUE is returned if a match is found, FALSE is returned if no match. ; 
1031 1 | SIDE EFFECTS: : 
1033 1 i NONE ; 
1034 1! $ 
1035 1 !-- 3 
1036 1 3 
ORs BEGIN : 
1039 F 
1040 SRC : BYTE, 3 
196) ENTDSC : REF DESCRIPTOR; : 
1948 LOCAL ; 
1044 & : REF BBLOCK, ! Temporary source block pointer 3 
1045 STATUS, ' Routine status 3 
1046 TSTLEN, ' Length of source to compare 3 
1948 TSTPTR; ! Address of source to compare : 
1049 PTR = 0; ! Initialize source pointer ; 
1929 STATUS = FALSE; ! Initialize routine status . 
1982 WHILE NMLSGETNXTSNK (.BLKDSC, .SNK, PTR) DO 3 
1984 If ;PTR CSRC$B_SRCTYPE] EQLU SRC 3 
1056 4 BEGIN F 
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11 
NMLSLOGOPS ML Logging data base operations module 1bese -1984 00:19:25 AX-11 Bliss-32 V4.0-74 Page 37 NAL 
yoxeb06 MLSGETAXT NK Get nent’ source block for specif 127808- 1382 90:43 597 NAL SREINALL DONS 4394 . aes v04 
1 ZSBITL "NMLSGETNXTSNK Get next source block for specified sink‘ 
GLOBAL ROUTINE NMLSGETNXTSNK (BLKDSC, SNK, SRCPTR) = 
144 
FUNCTIONAL DESCRIPTION: 
i This routine searches the sink node buffer for the next source block 
that matches the specified sink type. 
i FORMAL PARAMETERS: 
BLKDSC Descriptor of event source block buffer. 
Logging sink type code to match. 
SRCPTR Address of longword in which to return address 
of source block. If within range of buffer 3 R 


' 
( 
t 
t 
' 
! 
' 
4 
1 
: it will be used as the prere te point from which 
; to get the next source block that matches the 
specified sink. 

IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

NONE 

' 

' 

1 

' 

' 

' 

i] 

‘ 

4 

' 


i ROUTINE VALUE: 
i COMPLETION CODES: 


TRUE is returned if a match is found, FALSE is returned if no match. 
i SIDE EFFECTS: 


WR OOO NEWIN (OO OBNAUES WN (OOO NAUESWWR OO OONOUS wr 


NONE 

BEGIN 

LOCAL 
PTR : REF BBLOCK, ' Temporary source block pointer 
STATUS; ' Routine status 

STATUS = FALSE; !' Initialize routine status 

PTR = ..SRCPTR; ! Initialize source pointer 


WHILE es are (.BLKDSC, PTR) DO 
IF_.PTR CSRCSB_SINKTYPE] EQLU .SNK 
THEN 


ee ee ee ce el ce ce ee ee ee me ee ee ee ce ec DD ee ee ee ed ed eed ed ed wd ed 
a re ee ee ee ees 


VR VAIS SASF IS SSVSUTFUNZSS PEPE EP 
Wr —000 w 
OE WN @ 0 ODO UN EWR 0 ODNOA UE WN 9 OONOA UNE WW SO ODNAUES WR “OO OONOUS WON 


PPX QRXAD Vr BB BB BE EE AWWW NIWA NOPINUNPPUNINYN 2 2 SO OO oO SO 
RIE B&B BAHAI PPPPNPONONINDS 9 9 9 


Bo Se Oe Se Be Be Se Se Se Be Ge Se FH Se Ge Se Se Se Se Ge Ge Ge Ge Ge Ss Ge TH Ts Ge Se Se Se Se SF Se Ge Se Ges Se Se Se Se Se Se SE Se Se Sees Se Se Sse Sseesese 


EGIN 

-SRCPTR = .PTR; ' Set source pointer for return 
4 STATUS = TRUE; 
5 TA ea 
$ END; 


NALS PS NML data base operations module mt -Sep-1984 5 AX-11 Bliss-32 V4.0-74 Page 38 
Vor OOS. NM mr she Pant NK Get nant source block for specif ~Sep-1 1382 99: 43: 7? NML.SRCJINMLLOGOPS .B32; . a 
3; 1178 1198 
3 1179 11 RETURN .STATUS 
: 1180 116 
; 1181 116 END; ! End of NMLSGETNXTSNK 
0004 ~ENTRY WNMLSGETNXTSNK, Save R2 3 1119 
52 04 CLRL STATUS 3 115 
0c BE DD PUSHL @SRCPTR : 1132 
—E 00 1$ PUSHL SP : 1156 
04 AC OD 9 PUSHL BLKDSC : 
0O000000V EF g 4 f CALLS #2, NMLSGETNXTSRC ; 
L é 
35 tf i BOVE Prk, 20 1158 
08 aC 02 Ad 08 09 ; 18 CMP7V #0, #8, 2(RO), SNK : 
: 00 3 BNEQ 1$ r 
0c BC 0 OD 00 MOVL RO, @SRCPTR : 1161 
52 01 DO 00026 MOVL thie pas 3: 1162 
50 52 00 00029 2$ MOVL STATUS, RO : 1167 
04 0002C RET : 1169 


; Routine Size: 45 bytes, Routine Base: $CODE$ + 0550 


ee ce ee ce me ee me ee me ee me ee ee me ee ee ee ee ec ce ce ee ed dd ed nd ed od dd ed 


De Oe Be Be Be Se Be Se Be Se Be Be Se Se Se Se Se Be Ge Se Se Ge Ge Fe Fe Se Se Se Fe Ge Se FH Se Se Ge Se Se Se Se Se Se Se Se ee Sete Se Se Seas ete Se te ee tees 


oe 


NMLSLOGOPS NML_ Logging data base operations module 
vo%~008 PAxTeR F 


- AX-11 Bliss-32 V4 
NMLSGETNXTSRC Get next source block G 


1 
b-ben- 1984 ee SE OME Ta ht TREE ER Page 43 
ock' 
PTR) 


; (14) 


Ww 


1 

1 
ZSBTTL "NMLSGETNXTSRC Get next source bloc 
GLOBAL ROUTINE NMLSGETNXTSRC (BLKDSC, SRC 


3; 11 1120 1 

> 1186 1171 «4 TR) = 

; 1185 1156 1 

3; 11 § 1175 1 to 

: 1 t Wee } FUNCTIONAL DESCRIPTION: 

3; 1189 1178 1! This routine searches the sink node buffer for the next source 

; 1190 i777 1! block. 

3 1191 18 1! 

3 1136 117 1 ! FORMAL PARAMETERS: 

; 119 1180 1! 

+ 1194 1181 1! BLKDSC Descriptor of source block buffer. 

; 1195 11 § 1: SRCPTR Address of longword in which to return the address 
: 1196 11 1! of the next source block. If value is within buffer 
; 1197 1184 1! range on input then it is used as the address of the 
: 1198 a + 1: starting source block. 

3 1199 1186 1! 

3 1300 1187 1°! IMPLICIT INPUTS: 

3; 1201 1188 1! 

3 1606 1189 1! NONE 

: 120 1190 1! 

3: 1204 1191 1°! IMPLICIT OUTPUTS: 

: 1205 1138 23 

: 1206 1195 1! NONE 

3; 1207 11946 1! 

3; 1208 1195 1 ! ROUTINE VALUE: 

; 1508 1138 : COMPLETION CODES: 

; Ist) 118 : TRUE is returned if a match is found, FALSE is returned if no match. 
3; 1 ig 1500 1 ! SIDE EFFECTS: 

3 1214 te ee 

: 1215 1308 1! NONE 

3: 1216 1203 1! 

3; 1217 1204 1 !<- 

3; 1218 1205 1 

3 is? 1696 BEGIN 

3: 1220 120 

: iss 1308 P 

.s § 1209 BLKDSC : REF DESCRIPTOR; 

3 7 § 1210 

3: 1224 1211 LOCAL 

3: 1225 1 \ BUFEND, ' Pointer to end of buffer 

: \s § 121 e : REF BBLOCK, ' ponperery source block pointer 
| 1214 STATUS; ' Routine status 

: 1555 1316 3: 

: 1 1 i ! If descriptor indicates no source blocks (length=0) then 

3 ! | : \8 return failure. 

; ' § ! 9 IF .BLKDSC CDSC$W_LENGTH) EQLU 0 

3 : 5 ! § RETURN FALSE; 

31 1224 BUFEND = .BLKDSC CDSCSA_POINTER] + So +f COSCS$W_LENGTH]; 

3 : 3 : i PTR = ..SRCPTR; ! Initialize Source pointer 


——— — " " rc 


NMLSLOGOPS NML_Logging data base operations module 
YOs.000" NMLSGE TAX RC Get neat’ source block 


0004 
51 04 ac 00 
61 83 
| ee 
52 61 3¢ 
52 04 Ai CO 
50 08 BC dO 
04 Al 0 D1 
92 1F 
52 0 01 
50 04 ay Mi 
06 0 
51 3¢ 
50 1 CO 
52 D1 
9 1 
08 Bf D 
0 01 3 
4 
50 04 
4 


; Routine Size: 60 bytes, Routine Base: $CODES + 057D 


Sooooooooooooooooooooo 


OOQoooooQoooooooooooooecoo 


SOOooooooooooooocoooooooo 
WAMU GIPOPIPINPINIDS 4 SS | “ OOOSCOSO 


16- 
18 


sep-1 
epo- 
Sep-1 


be 18:50:41 


AX-11 Bliss-32 V4.0-74 
NML.SRCJNMLLOGOPS .B32; 


then return 


' Set source pointer for return 


! End of NMLSGETNXTSRC 


DOO M®ODOOLOMD OU" SF FP OO MIO 


18: 
2$: 
3$: 


4$: 


: 1240 1227 ! If PTR contains a value on input that is within the buffer range then 
: 1241 1 8 ! use it as the starting point. If the value is not valid 
s ; : : 4 the address of the first source block in the buffer. 

3 } te ! 1 IF (.PTR LSSA .BLKDSC CDSCSA_POINTER]) 

: 1 ‘8 1 § (.PTR GEQA .BUFEND) 

: 124 1234 THEN 

: 1248 1235 PTR = .BLKDSC CDSCSA_POINTER] 

3; 1249 1 $ ELSE 

: : 29 } , : PTR = .PTR + .PTR CSRCSW_LENGTH); 

Bb 53 1239 ! If pointer is still within range of buffer then return TRUE else 
5 : a : rt } return FALSE to indicate no more source blocks. 

3; 1255 1 tg IF .PTR GEQA .BUFEND 

: 1256 124 

: 1257 1244 STATUS = FALSE 

; 1258 1245 SE 

: 1259 1246 

3; 1260 1247 ~SRCPTR = .PTR; 

: 1261 1248 3 STATUS = TRUE; 

: 1606 1308 END; 

: 126 1250 

3: 1264 1251 RETURN .STATUS 

3; 1265 1526 2 

3; 1266 1255 1 END; 


R1 


R, @SRCPTR 
STATUS 


Sete Se Ge Se Ge Ge Se Ge Ge Be Se Se Ge Se Se Se Ge Se Se Se te 
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WOL%sGG0°S MIL hogging, deta base, onerat ong nogute if ob-1986 49:50:17 EAML+SRCINALLOGOPS.632;4 Page 14) 


04 
3 | 
3 1 
s 1 
s | 
$ 1 
s 1 
s 1 
s 
¢ 1 
s 1 
s | 
¢ 1 
. | 
= || 
g 1 
5 1 
$s 1 
3 1 
a | 
: 1 
. | 
. | 
$ | 


Lv 
aed cd 


SNS OO 
NOUS WN—OOO 


SNS SISSIES SSAA AAA AAAA OMIT 


MIPS POPoPoPoTPofoforforofnony 
SOOooCooooo OOO000000MOMwWom 
SSR PER SRE REE 
OOOO OOM COCDCD COCO CDCO~ 
FUN (SO ODNAVE WN O ODNOULS WN $0 ODN UE WW OODOND 


WANA 


=] 


LEBER 


ee ee ee ee me me ee ee et ee ee ee ee ee ee ee a a ed ed ed ed od dd 
RIE B&H BF UAWNIURININPOPINOPOPONNPUNINIDYD 2 2 9 


ee ee ee ce ee ce ee ee ee ee ee el ee ee ce ee ee ee ee ee ee ee ee ee ee ee ce el et ee cee cee cee el cee ce el ce el ce ce ce ee ce ce ee ee el ee el cel ce el 


SSSSSSSSSSSSSSISSSISSSRSSSRBSOS VIN 


FW OC OCOnNOUEWN—O 


Owe 


—s 


i 
H 


GLOBAL ROUTINE NMLSMATCHEVT (SRCPTR, CLAS 


'4 


n 
EVT Get event block matching specifie 
ZSBTTL "NMLSMATCHEVT Get event block Te a, 


H 1 
data base operations module 19-3 


p=198 


1 
ep-1 
ep-1 
ngs 
EVTP 


2 99:58:47 EAMG! SReNAELO 
pec ified class' 


4 
FUNCTIONAL DESCRIPTION: 


This routine searches the source block for an event block that 
matches the specified class. 


i FORMAL PARAMETERS: 


SRCPTR Pointer to source block. 
CLASS Class code to match. 
EVTPTR Address of longword in which the pointer to 


the matched event block will be returned. 


i IMPLICIT INPUTS: 


NONE 


! IMPLICIT OUTPUTS: 


NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


TRUE is returned if a match is found, FALSE is returned if no match. 


i SIDE EFFECTS: 


NONE 


BEGIN 


MAP 
SRCPTR : REF BBLOCK; 
LOCAL 
PTR : REF BBLOCK, ' Temporary event block pointer 
STATUS; ! Routine status 


PTR = 0; ! Initialize source pointer 
STATUS = FALSE; ! Initialize routine status 


WHILE wah SOE TATE NE (.SRCPTR, PTR) DO 
IF .PTR CEVT$SW_CLASS] EQLU .CLASS 
THEN 

eEVTIPTR = .PTR; ' Set event pointer for return 

STATUS = TRUE; 
al 

END; 


arn 
v 
So 
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11 
lg NML Login data base operations woqule 1b-Sep-1984 90:13: 5 joe Bliss-32 V4.0-742 Page 43 
v04 NMLSMATCHEVT Get event block matching specifie 14-Sep-1984 12:50:11 NML.SRCJNMLLOGOPS.B32;1 (15) 


: 1382 1313 RETURN .STATUS 
: : 1 i§ : 


8 1 END; ! End of NMLSMATCHEVT 


0004 99009 .ENTRY NMLSMATCHEVT, Save R2 : 1255 
ze D4 0000 CLAL : 1298 
3 D4 00 4 CLRL STATUS + 1299 
—E DD 6 1$ PUSHL + 1301 
04 AC DD 0000 PUSHL SRCPTR : 
00000000v FF g FB i CALLS ns NMLS$GETNXTEVT ; 
08 AC 00 «BE 10 09 F 13 CMPZV #0, #16, @PTR, CLASS : 1303 
0c BC : D 801 MOVL PTR, @EVTPTR : 1306 
og 00 MOVL = #1, STATUS : 130 
50 2 dO 00025 28 MOVL STATUS, R + 1312 
04 00028 RET + 1314 


; Routine Size: 41 bytes, Routine Base: S$CODE$S + 0589 


11 

NALS PS NML_Logging data base operations module 1b-5e -1984 00:19:25 AX-11 Bliss-32 V4.0-74 Page 44 

yOs-000" NMLSGETAXTEVT Get nent’ event block 1 ~3607 138% HE ENML SRE NMLLOGOPS .B32; 7 (16) 

; 1330 1315 1 ZSBTTL "NMLSGETNXTEVT Get next event block’ : 
3 : 1 } 18 : GLOBAL ROUTINE NMLSGETNXTEVT (SRCPTR, EVTPTR) = ; 
:1 : 1318 1 i+ : 
3 : 2 ! 4 ! FUNCTIONAL DESCRIPTION: ; 
; } 1 1 } This routine searches the source block for the next event block. : 
: 8 § | FORMAL PARAMETERS: 
: 1340 1325 1! SRCPTR Pointer to source block. ; 
> 1341 1 8 1} EVTPTR Address of longword to contain address of matched ‘ 
3 3 ¢ 1 1! event block. if the value is within the event block 3 
3; 134 1328 1! range then it is used as the starting event block : 
3 : te } 4 : } address. ; 
; 13? 1331 { IMPLICIT INPUTS: 
$) D 3 
; 1380 35 t IMPLICIT OUTPUTS: ; 
4) en ee : 
; 1354 1339 1 ' ROUTINE VALUE: 
$ 1322 1341 : COMPLETION CODES: : 
: 1320 : m4 ' TRUE is returned if a match is found, FALSE is returned if no match. ; 
; 1389 1344 i SIDE EFFECTS: 
; 1361 346 1 | NONE 
i 1368 1348 1 i-- 
3: 1364 1349 1 : 
: 1365 1350 BEGIN : 
; 1367 135¢ P : 
¢ 1368 1333 SRCPTR : REF BBLOCK; : 
i 1370 1355 AL ; 
3; 1371 1356 CLASSES, ! Number of event event blocks : 
; 1378 1357 MASKEND, : Pointer to end of masks ; 
3 130 1 8 MASKPTR, : Pointer to masks : 
3; 1376 135 PTR : REF BBLOCK, ! Temporary event block pointer : 
; : Le ! rs STATUS; : Routine status : 
; 1 4 6¢ , CLASSES = .SRCPTR CSRCSW_MSKCOUNTI; 3 
: 1379 1364 i If no event masks are present (count=0) then : 
3 ! 30 ' 5 ; return failure. : 
31 ; 1369 5 IF .CLASSES EQLU 0 : 
| 1 8 THEN : 
: 1384 1369 RETURN FALSE; : 
: 1386 1371 MASKPTR = .SRCPTR + SRCSK_LENGTH; ; 


K 11 
$ PS NML_Logging data base operations module 16-Sep-1984 00:19:25 AX-11 Bliss-32 V4.0-74 Page 45 NAL 
yor-000- NMLSGETAXT VT Get next event block 137305-1382 99308397 ENML.. SRC NMLLOGOPS .B32; (16) v0é 
MASKEND = .MASKPTR + (.CLASSES * EVTSK LENGTH); 3 
, PIR = ..EVTPTR; ! Initialize event pointer 4 
i If PTR contcins a value cn input that is within the buffer range then ; 
! use it as the starting point. If the value is not valid then return 74 
; the sddress of the first event block in the buffer. 74 
"IF (,PTR LSSA .MASKPTR) i] 
(.PTR GEQA .MASKEND) 31 
THEN 
PTR = .MASKPTR 


ELSE 
PTR = .PTR + EVTSK_LENGTH; 


If pointer is still within range of buffer then return TRUE else 
return FALSE to indicate no more event blocks. 


IF ” ste GEQA .MASKEND 
STATUS = FALSE 
SE 


BEG! 
EVTPTR = .PTR; ' Set event pointer for return 


DOO OO ODDO DOOWOOO NAN 


VIFWN OOO NAUNE WN" OOONAOULS Uy 


See Se Ge Ge Ge Ge Oe Ge Se Ge Ge Ge Ge FH Se Se Se Se Se Se Se Sees ee Ge See eee 
ea a = a ss a a ss = I a 8 tt 


SDSS AS ASSSSSSSOOO SOOO OOOO 


ae ab ed bt hs bs ts ts te ts i ts it 


SF FWA AWA WANA AWAWAN ANA NAAN 


9% 3 STATUS = TRUE; 
4 END; 
99 RETURN .STATUS 
01 1 END; ! End of NMLSGETNXTEVT 
0004 00000 .ENTRY WNMLSGETNXTEVT, Save R2 : 1316 
50 046 AC pO 00002 MOVL SRCPTR, R : 1362 
51 16 AO 0006 MOVZ2WL 22(RO). CLASSES ; 
2D 13 OOOOA BEQL : 1367 
50 18 cd 0000C ADDL2 #24, MASKPTR : 1371 
51 14 (€4 0000F MULL #20, R1 : 1372 
52 51 50 ¢1 00012 ADDL3 MASKPTR, R1, MASKEND : 
51 08 Bt DO 00016 MOVL  @EVTPTR. PTR ; 1373 
50 1 01 6 1A CMPL PTR, MASKPTR : 1379 
05 1F 0001D BLSSU ; 
52 1 D1 OOOTF CMPL PTR, MASKEND : 1381 
99 1F é BLSSU ; 
51 9 bo 1$: MOVL  MASKPTR, PTR : 1383 
03 1 7 BRB F 
1 14 C6 9 gs: ADDL2 #20, PTR : 1385 
2 51 0 C 3$: CMPL PTR. MASKEND : 1390 
8 1 F BGEQU ; 
08 eC 1 D 1 MOVL PTR, @EVIPTR : 1395 
1 BO ROVL #1, STATUS : 1396 
50 04 4$ CLRL = RO : 1401 
4 B RET F 


———————S——————ee — cro 


11 
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; Routine Size: 60 bytes, Routine Base: S$CODE$ + 05E2 


Dae a-ha e e e t t et at eet te ee ewe eee we ee ee 


ear et at ot et ot ot ot ot ot oe 


o 


ee a a ee et a ee a a ee ee el a a ll ee ce ee a a a a ed ed ed 
Ft et at et et tl ek ek kk kk ee le 


SELLE 


NML Logging Sete deve operations module 18-Sep-1984 90:13: ¢? ge Bliss-32 ¥e 83509 


NALSBL Bu a@ source block -Sep-1 NML ..SRCINMLLOGOPS .B3 
14 ZSBITL "NMLSBLDSRC Build a source block’ 
GLOBAL ROUTINE NMLSBLDSRC (BUFDSC, SNK, SRC, ENTDSC) : NOVALUE = 


i FUNCTIONAL DESCRIPTION: 

This routine builds a source bleck. 

i FORMAL PARAMETERS: 

BUF DSC Descriptor of buffer to new source block. 


hold 
pasoynes be at least SRCSK_LENGTH bytes.) 
SNK Logging sink type code. 


— 
SRERLS REELS EES 


Se ery errr ee 
Muir 


MEUM SO OONAUSWUN (ODD NAULS WN —OOONO 


SRC Event source type code. 

ENTDSC Event source id string descriptor. 
i IMPLICIT INPUTS: 

NONE 
i IMPLICIT OUTPUTS: 
i NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


NONE 
i SIDE EFFECTS: 
i NONE 


AAA 


BEGIN 

MAP 
BUFDSC : REF DESC 
ENTDSC : REF DESC 


LOCAL 
SRCPTR : REF BBLOCK; 


SRCPTR = .BUFDSC CDSCSA_ POINTER); 
CHSFILL (0, SRCSK_LENGTA, ~SRCPTR); ! Zero the event block 


SRCPTR CSRCSW_LENGTH) = SRC$K_LENGTH; 
SRCPTR ad itil = SNR; 
SRCPTR CSRCSB_SRCTYPEJ = .SRC 
SELECTONEU ~SRC OF 
NMASC_ENT_NOD]: ! Node 


CHSMOVE (2, 
ENTDSC COSCSA_POINTER), 


PIPIMIPPIPIMIMIPIMPIPIPINPIMIPIPIPIN IPI MRD a tk kk kk hd dh 
. e omememe 


i EE Ee SS SY 


Fe et oe ot ot ot ot et el tal ek ah tah hh UU a ek kee ae ek ee et et eek ek ek 


PAA ES BB EEE EEE PW 
SOA Ud DO OO0 WOME OOOO 


. 
a 
. 
e 
2 
e 
. 
° 
. 
° 
. 
e 
. 
e 
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; Routine Size: 


OOOO NNN 


FEN AS Sano 


SELLE EEE 


co 
“ 


ik kk ht tt 
SSeS 


Oo 
ad 


18 


NML Logging data base operations module 16 i -1984 00:19:25 AX-11 Bliss-32 V4.0 
NMLSBL BRC ° Buitd a source block ~8ep-19 4 09: 43; 1 NML.SRCINMLLOGOPS. g354 
1028 SRCPTR ae 
1461 CNMASC_ENT_CIR, 
1408 NMASC_ENT_LIN 
146 NMASC ENT-MOD): ! Circuit or Line or Module 
ec: BEGIN 
146 SRCPTR CSRC$B_IDLENGTH] = .ENTDSC CDSC$W_LENGTHI; 
1269 (.ENTBSC Pbscsu_teictns 
1468 “ENTDSC_COSCSA POINTERS, 
re SRCPTR CSRC$T_ID)); 
1273 END; 
1298 TES; 
1474 
1475 1 END; ! End of NMLSBLDSRC 
007C 00000 -ENTRY NMLSBLDSRC, Save R2,R3,R4,R5,R6 
50 04 AC dO 00002 MOVL BUF DSC, 
56 04 AO 00 00006 MOVL BURDS *SRCPT 
00 6E 00 2c 9000A movcS #0, (SP), WO. #24, (SRCPTR) 
66 18 B0 boi9 MOVW oe (SRCPTR) 
02 A6 08 AC 90 0001 MOVB SNK, 2(SRCPTR) 
50 0c A DO 00018 MOVL SRC,_R 
03 Ab 50 90 edt MOVB RO, 3(SRCPTR) 
50 »d5 00020 TSTL RO 
OA is 0022 BNEQ 1$ 
50 10 AC D 0024 MOVL ENTDSC, RO 
04 A6 04 AO B80 00028 MOVW 4(RO), 4(SRCPTR) 
04 00020 RET 
01 50 Di OO02E 1$ CMPL RO, #1 
QA 13 00031 BEQL 2s 
03 9 D1 00033 CMPL RO, #3 
13° 1F 000 BLSSU_-3$ 
04 50 D1 000 CMPL RO, #4 
. OE 1A 90038 BGTRU 3$ 
50 10 AC 00 00030 2$: MOVL ENTDSC, RO 
04 Ab 69 0041 MOVB (RO), 4(SRCPTR) 
05 A6 4 60 6 045 mMOVC3 (RO), @4(RO), SC(SRCPTR) 
4 00048 3$: RET 


76 bytes, Routine Base: S$CODE$S + O61E 


Page 48 
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LL el sss stn 


12 
NMLSLOGOPS NML_Logging data base operations module 16-5¢ -1984 00:19:25 AX-11 Bliss-32 V4.0-74 Page 49 
v04-000 NMLSBLOEVT™ Bultd an event class block 1 ~300 71382 PEE NAL. SREINAELOGOPS 63274 ° 18) 
3: 1493 1076 1 ZSBTTL "NMLSBLDEVT Build an event class block’ 
3 149¢ \of : GLOBAL ROUTINE NMLSBLDEVT (FCT, CLASS, MSKLEN, MSKPTR, EVTPTR) : NOVALUE = 
: 1e38 1238 1 !44 
3 149 1480 1 ! FUNCTIONAL DESCRIPTION: 
: 1498 1481 1! 
3; 1499 14 ¢ a: 3 This routine builds an event class block. 
; 1500 14 7% 
; 1501 1484 1 ! FORMAL PARAMETERS: 
: 1206 1485 1! 
; 150 1059 7 | FCT Mask operation code. (O=CLEAR, 1=SET) 
3 1208 ioe 1! CLASS Event class code. 
; 1505 1488 1! MSKLEN Length in bytes of event mask. 
: 1506 1489 1! MSKPTR Address of event mask. 
; 1507 1490 1! EVTPTR Address of event block to be filled in. 
; 1508 1491 1! 
; 1509 1336 1 ! IMPLICIT INPUTS: 
: 1510 1493 1! 
3 131) 1494 1! NONE 
$ 1318 1495 1! 
3 151 1496 1°! IMPLICIT OUTPUTS: 
: 1514 1497 1! 
3; 1515 1498 1! NONE 
: 1516 1499 1! 
3 1517 1500 1 ! ROUTINE VALUE: 
3; 1518 1501 1 ! COMPLETION CODES: 
3 1519 1286 1! 
3; 1520 1503 1! NONE 
: 1521 1504 1! 
3 1356 1505 1 ! SIDE EFFECTS: 
3s 1352 1506 1! 
3: 1524 1507 1! NONE 
: 1525 1508 1! 
3 1526 1509 1 !-- 
3; 1527 1510 1 
: 1528 1511 2 BEGIN 
; 136? 1216 2 
3; 1530 151 MAP 
3 133! 1318 EVTPTR : REF BBLOCK; 
5 1335 1218 CHSFILL (0, EVTSK_LENGTH, .EVTPTR); ! Zero the event block 
; 1342 1313 ,  EVTPTR CEVTSW_CLASS] = .CLASS; ! Fill im the class code 
: 15 1339 ! If function is SET (FCT=1) then move the mask into the log mask. 
3; 1538 1521 !' Otherwise (FCT=0), function is CLEAR so move the mask into the filter 
3; 1539 15 § ' mask. 
3; 1540 15 ! 
> 1541 1524 IF .FCT 
3 1366 1525 T 
3 1367 I $ “oo (.MSKLEN, .MSKPTR, EVTPTR CEVT$SQ_LOGMSK)) 
; 1 362 3 3 CHSMOVE (.MSKLEN, .MSKPTR, EVTPTR CEVTSQ_FILTERMSK)); 
: 12¢$ 1530 END; ' End of NMLSBLDEVT 


NMLSLOGOPS 
¥04-000 


NMLSBLDEVT Build an event class block 


; Routine Size: 36 bytes, Routine Base: SCODE$S + 066A 


12 
NAL Logging data base operations module 16-Sep 
“ep 


56 14 =A 00r8 $00 
14 00 6E 00 Be 00 
66 B 
st may 
046 A6 10 +BC Cc 6A : i 
oc A6 10 BC oc «AC ‘ \ 1$: 


33 AX-11 Bliss-32 V4.0-74 


NML.SRCJNMLLOGOPS .B32; 


NMLSBLDEVT, Save R2,R3,R4,R5,R6 
EVTPTR, R 
#0, (SP), #0, #20, (R6) 


CLASS (R6) 
MSKLEN, @MSKPTR, 4(R6) 


MSKLEN, @MSKPTR, 12(R6) 


Sete Fe Se Fe Se Se Ge Se Se 


Sa 


FUSVSUSVSUSO SSIS IOS 


APAEQMAMMAMNNVINVIVIVIIVT 


= 
WO ODCONAOUSWN—O”O 


wy 


C869 C8 O98 SINISE NI NOOO OO 


coco 
PAA AAAPA AAAS EB EPP LEE 


SSBLEA 


ooo 


Wn 


Ly Lal al ab ah sb ab Ab Ab Ab Ab Ab Ab Ab ib Ab hb Ab Ab dh dh dh ah ah ah ak adsl eal eal eal eal eal eal 


SSeLEAE 


oouw 
So 


SSS 


a ee a a a ee a el el a a ee el el al le el el el el ee ee ce a a el ee ed 
MW 


ee ee ee ce ee ee ee ee el cel cee el ee ee el el el ee ee ee ee el ee ee ee ee ce ee el ce ee ce cee ce ce el ce ee cl ce ee eel ee ce ee ee ee ee ee ee eed ed ed 


PVPVPVPVPV PV DVLVDPVDVSPULVUDPUSVSUSUSUSVDU SUSU SUSUSUS USSSA SIS SISTSISISISISISISIOSTISIOIIIIT 
NOUS WN SO OONOAUE WIN $9 ODNAUES WIN (9 ODNOU EWA OOONOUES WO CONOULS WR 


CODmDmnOnDno NNN 


o 
So 


ing data base operations module 
RC Add a source block to buffer 


XSBITL "NMLSADDSRC_ Add a source block t 
GLOBAL ROUTINE NMLSADDSRC (BUFDSC, SRCDS 


144 


FUNCTIONAL DESCRIPTION: 


D 12 

ao8ep- 1986 2:50:17 ENMLSRCIN 
utter’ 
SRC 


er 
PTR) = 


; This routine adds a source block to the specified buffer. 
FORMAL PARAMETERS: 

i BUF DSC Descriptor of source block buffer. 

! SRCDSC Descriptor of source block data in buffer. 
SRCPTR Pointer to source block to be added. 
IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

COMPLETION CODES: 

i 

i 

i 

i 

i 

' 

i 

le 


Returns TRUE if the source block was added. Returns FALSE if 
there was not enough room in the buffer. 


SIDE EFFECTS: 
NONE 


Make sure source block will fit in the buffer. 

IF (.BUFDSC COSCS$W_LENGTH) - .SRCDSC COSC$W_LENGTH)) 
-SRCPTR CSRC$W_LENGTH] 
RETURN FALSE; 

i Block will fit so move it. 

CHSMOVE bt 1:4 et naan 

' -SRCDSC CDSCSA_POINTER] + .SRCDSC COSC$W_LENGTH)); 

! Calculate resulting buffer length. 


PROPOPOROPOPOROPOROPORIPU POPPE NOPUNONIPNDY 9 9 
- . . 


ing data base operations module 


$B¢ 12:50:11 ENML.SRCINAL LOGOPS-832; 


RC Add a source block to buffer 


LENGTH) + .SRCPTR CSRC$W_LENGTH); 


! End of NMLSADDSRC 


oo 
oo 


MODuwm —UwIWwW 
OAnoo co oOo 
owmwro—-Oou10 WYP 
HMROMOAOUNO AOC 
OVS FPNVOWMOWWo-s 
FPF FOOWDOM LONOOOO 
SOOoOCooooooooooooSo 
SoOoooooooooooooo 
SoCooooooooooooo 
VEN wae ots me 
ROOOVIDWOOOVU ror 


“ 
oO 


SCODES + 068E 


; Routine Size: 


NML3ADDSRC, Save R2,R3,R4,R5,R6 
SRCDSC, R6 
aBUFDSC, RO 

(R6) Ri 

#0, #16, @SRCPTR, RO 


(R6), RO 
4(R65, RO 

@SRCPTR, @SRCPTR, (RO) 
aSRCPIR, (R6) 


. 


RO 


F 12 
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VOs-000 NMCSRERERC? Replaces Source Slack ih gutter  1eesep=198¢ 45:40:17 ENML-SREINMELOGOPS -832, 9° (20) 

; 1614 1595 1 XSBTTL "NMLSREPSRC_ Replace a source block in buffer' g 
: 191? : 8 } GLOBAL ROUTINE NMLSREPSRC (BUFDSC, SRCDSC, OLDSRC, NEWSRC) = ’ 
: eit 1598 1 14+ 
H 1918 1238 ! FUNCTIONAL DESCRIPTION: : 
: 19 y 1601 } This routine adds a source block to the specified buffer. : 
; 16e¢ 1808 FORMAL PARAMETERS: ; 
> 1624 1605 1! BUF DSC Descriptor of source block buffer. : 
: 1625 1606 1 i SRCDSC Descriptor of source block data in buffer. ‘ 
; 16 8 16 1! OLDSRC Pointer to old source block in buffer. ‘ 
3 1? 1608 : NEWSRC Pointer to source block to be added. ; 
; 16¢9 110 | IMPLICIT INPUTS: 
Py i te aye : 
; 1638 1614 1 | IMPLICIT OUTPUTS: : 
Be sear tig > : 
: 1637 1618 1 | ROUTINE VALUE: 
; 1638 1038 : COMPLETION CODES: ° 
: 1640 1621 1! Returns TRUE if the source block was added. Returns FALSE if : 
3 + at 16¢¢ ! there was not enough room in the buffer. ‘ 
; 1628 1624 1! SIDE EFFECTS: 
3: 1644 1625 1! : 
3: 1645 1626 1 NONE : 
: 1646 1627 1! ; 
He ied 3 
: 1649 1680 2 BEGIN : 
+e ev : 
i 1658 1638 BUFDSC : REF DESCRIPTOR, : 
3; 165 1634 SRCDSC : REF DESCRIPTOR, ; 
3: 1654 1635 OLDSRC : REF BBLOCK, ° 
3; 1655 1636 NEWSRC : REF BBLOCK; ; 
1 ae re : 
; 1658 1839 FREELEN, : 
2: RB aoe : 
; 199; 1o6¢ Make sure source block will fit in the buffer. : 
; 1663 1644 2 FREELEN = -BUF DSC EDSC$H_LENGTH : 
+: et BEE : 
: 1666 1847 IF .FREELEN (SS -NEWSRC [ ten cea ; 
; 1668 1649 RETURN FALSE; ; 
: 1890 1651 FREELEN = .FREELEN - .NEWSRC CSRCSW_LENGTH); : 


data base operations module 18-5¢ Sep-1 5 AX-11 Bliss-32 V4.0-74 P 4 
° Replace a source block S buffer =30P 71 38F 99: 43: 7 NHL. SREINMELOGOPS. B32; age 233 


23 
Sad 
oO 
wv 
ww 

23 

aa 

ad 
zr 
mo 
ao 
wo 
meme ze. 
os 


: 1671 16 

: 1ol¢ 1 i Block will fit so move it. 

: 1674 1655 2 ° MOVLEN = .SRCDSC CDSCSA POINTER] + .SRCDSC CDSC$W_LENGTHI; 
> 1675 16 6 MOVLEN = “MOVLEN L 

; 1676 16 MOVLEN = *MOVLEN = JOLDSRC CSRC$W_LENGTH); 

188 1889 

> 1679 1660 DSRC’+ .OLDSRC CSRC$W -LENGTH] 

: 1680 1661 -OLDSRC + .NEWSRC CSRCSWILENGTHIS; 

; 1686 1668 CHSMOVE (.NEWSRC CSRCSW_LENGTH, 

: 16 1664 “NEWSRC 

; 1684 1665 -OLDSRCS ; 

; 1958 1867 Calculate resulting buffer length. 

> 1688 1669 SRCDSC COSC$W_LENGTH) = 

3 ioe 1009 -BUFDSC CBSCSw_ LENGTH) - .FREELEN; 

: 1691 167¢ : RETURN TRUE 

: 1898 1674 1 END; ! End of NMLSADDSRC 


03FC 00000 .ENTRY NMLSREPSRC, Save R2,R3.R4,R5.R6.R7.RB.R9 =; 1596 
58 08 AC DO 00002 MOVL SRCDSC, RB > 1645 

50 04 BC 3¢ 00006 MOVZWL aBur dst RO : 

51 68 3C O000A MOVZWL (RB), RI ; 

50 51 cé 00000 SUBL2 RO : 
56 Oc AC p 00010 OVL OLDSRC, R6 + 1646 

51 66 3C 00014 MOVZWL (R6) : 

59 50 51 ci 00017 ADDL3 R1, RO, FREELEN ; 
57 10 BC 3C 0001B MOVZWL @NEWSRC, R? + 1647 

57 59 D1 OOO1F CMPL - FREELEN, R7 : 

¢4 19 00022 BLSS ; 
59 7 2 0024 SUBL2 7, FREELEN + 1651 
50 68 %3C 00027 MOVZWL (R&), MOVLEN + 1655 

50 04 A8 CO 0002A ADDL atnes MOVLEN ; 
50 56 C2 00026 SUBL2 R6, MOVLEN + 1656 
50 1 00 1 SUBL2 sR, + 1657 
6746 6146 Q 0 MOVC " GLEN. RD ERGY, (R7)CR6] : 1661 
66 10 BC 003A MOVC anéws > 1665 
bE 04 BC 59 A3 0003F SUB rReeLeN,. Re RGD (RB) + 1670 
0 01 p 044 MOVL RO : 1672 

4 00047 RET ; 
50 p4 00048 1$: CLRL ~— RO > 1674 

4 O004A RET ; 


; Routine Size: 75 bytes, Routine Base: S$CODE$ + O6BE 


CHSMOVE (.MOVLEN, 


RC Remove source block from buffer 14-Sep-1984 :50:11 NML.SRCINMLLOGOPS .B832;1 (21) 


—* 
o 
ooo 
NOW 


ZSBITL "NMLSREMSRC Remove source block 


Lock from buffer’ 
GLOBAL ROUTINE NMLSREMSRC (BLKDSC, SRCPT 


f 
R) : NOVALUE = 


ao 


'o4 


FUNCTIONAL DESCRIPTION: 
This routine the specified source block from the buffer. 
FORMAL PARAMETERS: 


RALSLSSS 


oO 
uw 


BLKDSC Descriptor of source block buffer. 
SRCPTR Pointer to source block in buffer to be removed. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 


COMPLETION CODES: 
NONE 

SIDE EFFECTS: 
NONE 


BEGIN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
5 MAP 
BLKDSC : REF DESCRIPTOR, 


DOWBNONE WN OOONANE WOOD e 


UNNNNNNNNNIN 3 3 3 2 3 O00 


SRCPTR : REF BBLOCK; 


eas 


LOCAL 


Be De Se Ge Se Fe Ge Se Ge Se Be Fe Ge Fe Be Ge Ge Ge Ge Ge Ge Ge Se Ge Se Gs Gs Ge Ge Ge Ss Ge Gs Se Ge Se Ge Se Se Se Ss Se Se Se oe Se FE Se Sees Se Se Se Seesese 
ec ee ce ec a ee a ce ec ee ec ee ee me ee ee cD ee ce ce ee ee ee ee ed ed ed ed 
SSN SSNS NSS SSS SSSI SOO 


7 
7 
; 
7 BUFEND, 
5 7 LEN, 
$ : PTR; 
3 g 3 Set up length and pointers to remove source block. 
40 720 2 LEN = .SRCPTR CSRCS$W_LENGTH); 
41 721 PTR = .SRCPTR + att 
4g § BUFEND = .BLKDSC DSC$A_POINTER] + .BLKDSC COSCS$W_LENGTH); 
rf} g : Move the end of the buffer back over the source block to be removed. 
46 § CHSMOVE (.BUFEND - .PTR, 
48 u 8 *SRCPTR); 
50 730 i Update the descriptor. 
51 731 ! 


H 12 
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L_Logging data base operations module 1b-5¢ Sep-1984 5 AX-11 Bliss-32 V4.0-74 P 
CSREMERC! Remove source block from buffer 12-8081 382 99: 43: 7 NML.SRCINMLLOGOPS .B832; age 333 


NM 
NM 
Ht — COSCSW_ LENGTH] = 
17 
17 


: 17 
: HS ; LKDSC COSCSW_LENGTH] = .LEN; 
: 1755 5 END; ! End of NMLSREMSRC 


OOFC 9900 ENTRY NMLSREMSRC, Save R2,R3,R4,R5,R6,R7 ; 1676 
7 : BC 3C 000 MOVZ2WL a@SRCPTR, REN : 1720 
51 7 AC C1 00 ADDL3  SRCPTR, ‘e PTR + 1721 
6 a at 60 OVL  BLKDSC, R t 1722 
0 66 ¢ OOCF MOVZWL (R6), BUFE ; 
50 04 Ab CO 0001 ADDL2 4(R65 BOF END : 
50 51 ce 001 SUBL2 PTR, RO + 1726 
08 BC 61 50 2 9001 MOVC3 RO, (PTR), @SRCPTR + 1728 
66 57 A2 OOO1E SUBW2 LEN, (R6) + 1733 
04 00021 RET + 1735 


; Routine Size: 34 bytes, Routine Base: S$CODE$ + 0709 


12 
NMLSLOGOPS NML_ Logging data base operations module 1b-Se 1984 00:19:25 AX-11 Bliss-32 V4.0-742 Page 57 
vos-006 NMC SADBEVT™ Add an event block to source buffer 12286871382 99300397 NML.SRCINMLLOGOPS .B32;1 - (23) 
3; 1757 17 1 ZSBTTL "NMLSADDEVT Add an event block to source buffer’ ‘ 
; i 8 \f ! GLOBAL ROUTINE NMLSADDEVT (BUFDSC, SRCPTR, EVTPTR) = : 
; 1760 17 1 !+4 ; 
; 170) \rr9 : : FUNCTIONAL DESCRIPTION: ‘ 
; 1768 rng ’ This routine adds an event block to the specified source buffer. : 
; 1765 1744 1 ! FORMAL PARAMETERS: : 
: 1766 1745 1! ‘ 
3 1767 18 7} BUF DSC Descriptor of buffer containing source block. ‘ 
; 1768 1747 1! SRCPTR Pointer to source block in buffer. ’ 
; 1769 1746 1! EVTPTR Pointer to event block to be added. ‘ 
; 1770 1749 1! ‘ 
; 1771 1750 1°! IMPLICIT INPUTS: ‘ 
; \77¢ Wee) 1} : 
3; 177 17 § 1! NONE ‘ 
3 1774 ie 1} ° 
3; 1775 1754 1°! IMPLICIT OUTPUTS: : 
: 1776 W799 7 3 ’ 
: 1777 1756 1! NONE ° 
; 1778 1757 1! ‘ 
; 1779 1038 1 ! ROUTINE VALUE: : 
: 1780 1759 1 ! COMPLETION CODES: ; 
: 1781 1760 1! ; 
; 1786 17o) 3 3 Returns TRUE if the event block was adued. Returns FALSE if . 
; 178 1766 1} there was not enough room in the buffer. : 
: 1784 1765 1! : 
; 1785 1764 1 ! SIDE EFFECTS: : 
; 1786 1765 1! ; 
; 1787 1t08 1! NONE 
: 1788 1767 1! 
3 1789 1768 1 !-- 
; 1790 1769 1 
3; 1791 1770 BEGIN 
; 178 1771 
; 179 Hae 
3: 1794 177 BUFDSC : REF DESCRIPTOR, 
3; 1795 1774 SRCPTR : REF BBLOCK, 
3; 1796 1775 EVTPTR : REF BBLOCK; 
3: 1797 1228 : 
3 138 ire Make sure event block will fit in the buffer. 
3 1960 1779 IF (.BUFDSC COSCS$W_LENGTH] - .SRCPTR CSRC$W_LENGTH]) 
3; 1801 1780 
; 1008 1781 EVTSK_LENGTH 
31 17 § 
3 1 17 RETURN FALSE; 
: 1805 1784 ‘ 
; 1806 1785 ! Block will fit so move it. 
; 1807 17 : 
; : 8 i? CHSMOVE (EVTSK_LENGTH, 
3 ' 19 Hi : -SRCPTR + .SRCPTR CSRCSW_LENGTH)); 
: 1812 1791 ' Calculate resulting buffer length and store it in source block. 
; 181 1792 ! Also increment the mask count. 


SeGe Se ee Ge See Ge Gee 
bb tt 


50 


; Routine Size: 


ogging data base operations module 
NAL L i data b i dul 1 
NMLSADDEVT Add an event block to source buffer 1 
1793 
1794 SRCPTR CSRCS$W_LENGTH) = 
1f9? ~SRCPTR CSRCSW LENGTH) + EVTSK_LENGTH; 
1399 SRCPTR bsecey MSKCOUNT] = 
1738 -SRCPTR CSRCSW ONSKCOUNT) #13 
1300 RETURN TRUE 
1801 
1802 END; 
007C 00000 
56 08 AC ge Babee 
51 66 3C 00006 
50 14 Al YE 48 
04 «BC 10 00 ED 0000D 
10 19 00013 
6146 oc «BC 14 28 4b F 
66 14 AO 00018 
16 A6 B6 Boos 
. OT Be BR8el 
50 D4 00028 1$: 
04 00027 


40 bytes, 


Routine Base: 


Sep- 


$0198 Q0:18:95 AMC OldsarBzan 05 


! End of NMLSADDEVT 


SCODES + 0728 


rte ee 4G Save R2,R3,R4,R5,R6 


0, @EVTPTR, (R1)CR6) 
is 


(R6) 
, RO 


Be Se Se Fe Se Ge Se Ge Fe Fe Be Ge Se 
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(22) 
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voe- NMLSMOBEVT” Modify event block 12-808=438e 3:E8:9F FANT TE Bb iss22 ve O57 a9 333 
1 3. 1 ZSBTTL ‘NMLSMODEVT Modify event block’ 
! : ! GLOBAL ROUTINE NMLSMODEVT (FCT, ZER, EVTPTR, MSKLEN, MSKPTR) : NOVALUE = 


lee 
' FUNCTIONAL DESCRIPTION: 

This routine the modifies the specified event block. 
FORMAL PARAMETERS: 


co VIFWN—"OVONOU 
2 0D C9 C9 0D 09 C909 C9 CD 0D C9 09 C9 0909 CD 0000 


3 ! 
1 

10 1: 
11 ! 

8 \¢ ' 
1 ! FCT Mask operation code. (FALSE=CLEAR, TRUE=SET). 
14 ! ZER Zero f “9. (TRUE=yes, FALSE=no). 
15 ! EVTPTR Pointer to event block. 

8 16 ! MSKLEN Length of mask value to be added. 

£78 \ MSKPTR Pointer to mask value to be added. 

841 19 IMPLICIT INPUTS: 

Be 1 i NONE 

B44 8 ; ! 

ot? § Z IMPLICIT OUTPUTS: 

847 825 i NONE 

848 8 § ! 

849 8 ' ROUTINE VALUE: 

$20 : S } COMPLETION CODES: 

8¢ 830 1! NONE 

8s th ! 

S28 HE SIDE EFFECTS: 

856 834 i NONE 

857 835 ! 

858 836 ed 

859 837 

rey $38 BEGIN 

o6¢ 840 

86 84 EVTPTR : 8B 


REF BBLOCK 
MSKPTR : REF BITVECTOR: 


SRF 


DONO UL WN OOONOUS Wit 


!' Length of mask in bits 


a S32 3 


84 
sf OLDMSK : REF BITVECTOR, ' Mask not changed 
390 Ba RESMSK : REF BI TVECTOR; ! Address of result mask 
8 i If the operation is SET (FCT=1) then modify log mask. 
: Otherwise, operation is CLEAR (FCT=0) so modify filter mask. 


MEwun— 


IF .FCT 
THEN 


NO 


BEGIN 
RESMSK = EVTPTR CEVT$Q_LOGM 
OLDMSK = EVTPTR CEVT$Q_FILT 


SN 


ee ee ee ee ce ee ce a ee ce ee ee ee ce ee ee ee ce ee ee a me ee ee ee ee ee ce ee ee ee ee ed ed ed eed 


ee ee ee ly ee ec ee ee a ae a a a ll el el el ee ee eed ee ee ae ee ee ed ed ee 
CAPRI AAI LPPONPOPIPONIPIPIPIPPIPIPPA) 8 ns tn tt tt tt tt kt kt td 

@ 

— 

=— 

m 

2 

2 


—OO0@ 
0.000000 090 G9 00 C0 Op 
DAMMAM 


28 


SPSS sSSEtearoe 33 


SoS ESeS3ES3 


a a ek et a a a dd ad a dd 
Fwnr—-O0on 


oovovono 
paar Dor Pier Por Pos 


% EXE Sx 
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186 RESMSK = EVTPTR CEVT$SQ_FILTERMSK); 
1 2 OLDMSK = EVTPTR LEVTS$Q_LOGMSK); 
: ? ; END; 
} rt : Set the correct bits in the result mask. 
: 66 BITLEN = .MSKLEN * 8; 
1868 INCR I FROM 0 TO .BITLEN = 1 DO 
: 4 BEGIN 
1871 RESMSK 1} = .RESMSK (.1) OR .MSKPTR C.1]; 
: Lf OLDMSK L[.I1J = .OLDMSK L.IJ AND NOT .MSKPTR C.1); 
te ; END; 
1878 If the other mask should be zeroed (ZER=TRUE) then zero it. 
1878 IF .ZER 
1879 THEN 
1330 BEGIN 
1886 MAP OLDMSK : REF VECTOR C, BYTE); 
1884 INCR I FROM 0 TO EVTSS_LOGMSK - 1 DO 
1885 4 BEGIN 
1886 4 
1887 4 OLDMSK (.1) = 0; 
1888 4 
1889 3 END; 
1890 § END; 
1891 
1892 1 END; !' End of NMLSMODEVT 
003C 00000 -ENTRY NMLSMODEVT, Save R2,R3,R4,R5 3: 1804 
51 0c AC Be C1 eit ADDL #4, EVTPTR : 1855 
50 OC Ac ¢ ¢1 0000 ADDL3 #12, EVTPTR, RO > 1856 
93 04 AC 7 000 BLBC " : 1852 
3 50 7D 0001 MOVa RO, OLDMSK : 185 
8 11 1 BRA 2$ 3 19) 
54 D 15 1$ MOVL RO, RESMSK 3; 
53 1 b 1 MOVL Ri, OLDMSK : 1861 
55 10 Ac 3 1B 2$: ASHL #3, MSKLEN, BITLEN : 1866 
51 1 cf 0 MNEGL #1, I 3: 1872 
6 BRB 4$ 3 
64 1 1 EF 3$: EXTZV. I, #1, CRESMSK), R2 ; 1871 
14 BC 1 1 EF A EXTZV #1, @MSKPTR, RO 3 
0 3 C8 000 BISL2 R2, R 3 
51 FO 000 INSV RO, 1. #1, (RESMSK) r 
63 1 |, EXTZV. I, #1, (OLDMSK), R2 3: 1872 
14 =«6BC 1 1 €EF 4 errey 1, #1, @MSKPTR, RO : 
é : CA 0004 BICL Rd. R 
01 FO 46 INSV R2, 1, #1, COLDMSK) 3 


VOLDOR” «= NALSMOBEVT® Modtty event block > moul® 1S 13 eisb:47 EARL: SeCdNALLogobs:-B30+4 ea 


cn 39 eo kita ©6=©=6RR Oe, : 1858 
Si DG CLRE OO 34 

614 S$: CLRB. «C1 COLDMSKI t 1887 

= is * Uta. fe : 1883 


; Routine Size: 93 bytes, Routine Base: $CODE$ + 0753 
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5 ae 
v04-000 NMLSREMEVT Remove event block from source buff 14-Sep-1984 12:50:11 NML.SRCINMLLOGOPS .B32; (24) 


H 1318 1893 1 ZSBTTL "NMLSREMEVT Remove event block from source buffer’ 
3; 191 1894 1 GLOBAL ROUTINE NMLSREMEVT (SRCPTR, EVTPTR) : NOVALUE = 

: 1919 1896 | 14s 

: 19 0 3} | FUNCTIONAL DESCRIPTION: 

: 4 § 133) } This routine the specified event block from the source buffer. 
: 19 4 1901 | FORMAL PARAMETERS: 

; 1958 1908 1 i SRCPTR Pointer to source block. 

: 13 f 138° } EVTPTR Pointer to event block to be removed from source. 
: 19 4 1906 { IMPLICIT INPUTS: 

: 138 ys a 

; 1933 1910 1) IMPLICIT OUTPUTS: 

: 1934 1911 1! 

1986 1918 1 | — 

: 1937 1914 1 | ROUTINE VALUE: 

3; 1938 1915 1 ! COMPLETION CODES: 

3; 1939 1313 ae 

: 18c9 1918 1 | a 

: 194¢ 1919 | SIDE EFFECTS: 

> 1944 1981 1 i NONE 

: 1945 19 ; 1! 

3 1946 192 1 !-- 

3 1947 13S¢ 1 

: 1948 1925 2 BEGIN 

1980 1959 MAP 

> 1951 1928 SRCPTR : REF BBLOCK, 

: 132¢ 13$9 EVTPTR : REF BBLOCK; 

: 195 1930 

3: 1954 1931 LOCAL 

; 1955 1936 BUFEND, 

: 1989 198, 3 3 rem 

; 1338 + 5 : Set up length and pointers to remove event biock. 

: 1960 19 $ PTR = .EVIPTR + EVT$K_LENGTH: 

; 1961 19 8 BUFEND = .SRCPTR + .SRCPTR CSRC$W_LENGTH); 

: 1968 Hb Move the end of the buffer back over the event block to be removed. 
: 1965 1948 CHSMOVE (.BUFEND - .PTR, 

; 1967 1944 EVTPTR); 

> 1969 1946 i Update the length of the source block. 

: ib 44 9 Also decrement the mask count. 

: 1972 1949 "  SRCPTR CSRC$W_LENGTH) = 


SSS » | ened 


ee 4 


wm OGOPS NML Loaging data base operations module 1-48 9° 138% 90:13: 5 AX-11 Bliss-32 V4.0-742 Page 63 


4- NMLSREMEVT Remove event block from source buff 1328 08=1 bbe 7:50:11 NML.SRCINMLLOGOPS .B32; 1 (24) 
; 13T? 3 9 «SRCPTR CSRC$SW_LENGTH] = EVTSK_LENGTH; 
: 1975 19 g SRCPTR CSRC$W_MSKCOUNT) = 
3 1378 19 ~SRCPTR CSRCSW_ MSKCOUNT] - 1; 
> 197 1954 
: 1978 1955 1 END; ' End of NMLSREMEVT 
007¢ 00000 .ENTRY NL SREMEVT Save R2,R3,R4,R5,R6 : 1894 
51 08 Ac 16 C1 0000¢ ADDL3 R, PT : 1937 
56 04 AC bd 9000 MOVL eer ore : 1938 
50 66 3C 0000B MOV ZWL (R6) “Bur END : 
3 ft ec ie ue 
08 BC 61 50 § 00014 MOVC RO (PTR), @EVTPTR + 1944 
66 14 Ae 00019 SUBW2 #2 (R6) + 1950 
16 Ab B? O00IC DECW 22(R6) : 1953 
04 0001F ET + 1955 


; Routine Size: 32 bytes, Routine Base: S$CODE$ + 0780 
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vO4-000 NMLSREMEVT® 4 o~genn 1 3Be 99:38 NAL SREINMELOGOMS B3e0% age 38 


1 
VT Remove event block from source buff 1 
! 


; 1380 1956 1 END End of module ‘ 
: 1982 1988 0 ELUDON é 
; PSECT SUMMARY ; 
; Name Bytes Attributes ‘ 
: SOWNS beg? NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; SPLITS 40 NOVEC ;NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ° 
; SCODES 2000 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ° 
; Library Statistics ‘ 
er ee ae ee ee oe ee “-- Symbols -------- Pages Processing ‘ 
3 File Total Loaded Percent Mapped Time ° 
: _$255$DUA28: ot Tg yg) fg Th 41 40 11 27 90:08 .] ‘ 
; 7$255$DUA28:CSHRLIB NMALIBRY | 2:1 87 5 0 47 0: 0.2 : 
; 7$255$DUA28:CSYSLIBISTARLET.L32; 1 9776 2 581 00:02.1 ; 
: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:NMLLOGOPS/OBJ=OBJ$:NMLLOGOPS MSRC$:NMLLOGOPS/UPDATE=(ENH$:NMLLOGOPS) 


3 hs 2000 02201" 1084 data bytes 
3 Fleeced Time: 

3 Lines/CPU M 3531 

: Lenenes/CPU-Rin; 12503 

F Y Used: 134 pages 

$ — ation. Complete 
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